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Section 1 



INTRODUCTION 

This outline has been written in a modular form to facilitate up- 
dating and addition of new material. 

It consists of a basic module covering device independent topics. 
Following this basic module will be device dependent modules. These 
will be added as they are developed for the various categories of 
devices, e.g., 1050, 2260, binary synchronous. They should in no 
way affect the basic module. 

The basic module covers: 

Basic operation of BTAM 

BTAM buffering 

BTAM macros 

General channel programming considerations 

Essentially the device dependent modules cover: 

Hardware 

Line control 

Channel programs 

Programming example 

Special considerations related to the device 

Class problem 

It is recommended the instructor uses the basic module and foils 
as the basis for his instructions. However, he should incor- 
porate into his presentation examples and material's from the var- 
ious device modules. The interests of the students should dictate 
what material is used from the various modules. 

The best BTAM class will be one where the instructor has a good 
knowledge of BTAM and can run the class as a workshop where there 
is adequate machine time to do the selected class problems. 
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IBF^ 



Course Description 



S/360 OS BTAM CODING 



Course Code 



Duration 



Audience 



Prerequisites 



Objectives 



K3663 62 

3 to 5 customer-student days * 

This course is intended for Systems Programmers - 
customer and IBM. 

S/360 OS coding (S3660 65) 

Data Communications Concepts (U1900 62) 

Upon successful completion of the course the student 
is able to: 

1. Understand the functions of BTAM and where it 
fits in the Operating System. 

2. To code using BTAM macros in order to service 
the communication lines connected to the S/360. 



* Depends on amount of machine time. 



Copies of this publication can be obtained through IBM Branch Offices, 

Address comments concerning the contents of this publication to: 

IBM DPD Education Development, Education Center, Poughkeepsie, New York 
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Abstract Ref. 
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C30-2004 
A22-6864 



Instructor Materials 

S/360 OS BTAM - PLM 

S/360 OS BTAM Coding Education Guide 



Y30-2001 



See below 



* System/360 Bibliography (A22"6822r N20-0360) 



Abstract 



R20-4105 



Education Guide 

8 1/2" X 11" Looseleaf Instructor Outline 

172 pages (Brown Cover) 

This guide contains a detailed course outline, with teaching 
notes to be used by a qualified instructor. Included in 
this guide are: references to supporting information, 
paper masters of overhead foils, sample problems and class 
problems . 
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GENERAL COURSE OUTLINE 

OS BTAM DEVICE INDEPENDENT TOPICS 

A. Basic Operation of BTAM 

1. Relationship between user's program and supervisor 

2. Relationship between user's program, BTAM, and 
supervisor 

a. At execution of OPEN 

b. Additional OPEN functions 

c. Execution of program 

B. BTAM Buffering 

1. Why buffering 

2. Why BTAM buffering 

3. Format of buffer pool 

4. Ways of building buffer pool 

a. GETMAIN and BUILD 

b. Area defined at assembly and BUILD 

c . GETPOOL 

d. At BTAM OPEN 

5. Ways of obtaining buffer from pool 

a. For READ 

b. For WRITE 

6 . Dynamic Buffering 

a. Why dynamic buffering 

b. Operation 

C. BTAM Macro Considerations 

1. Data Control Block (DCB) macro 

2. Line Error Block (LERB) macro 
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3. Assemble Translate Table (ASMTRTAB) macro 

4. Define Terminal List (DFTRMLST) macro 

5. Change Terminal Entry (CHGNTRY) macro 

6. OPEN and CLOSE macro 

7. LOPEN macro 

8. READ and WRITE macros 

9. Reset Polling or Reset Line (RESETPL) macro 

10. Translate (TRNSLATE) macro 

11. Line Error Print (LERPRT) macro 

12. Request Buffer (REQBUF) macro 

13. Release Buffer (RELBUF) macro 

14. TWAIT macro 

D. Error Recovery Procedures 

1. Functions 

a. Basic capabilities 

b. Other capabilities that can be specified 

2. Operation 

a. Dynamic buffering 

b. Regular buffering 

E. Channel Programs 

1. Purpose 

2. Users concern with channel programs 

3. Basic types of channel programs 

a. Read Initial and Read Initial with Reset 

b. Read Continue 

c. Read Repeat 

d. Other methods to terminate transmission 
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e. Write Initial and Write Initial with Reset 

f. Write Continue 

g. Examples of sequences 
F. General OS BTAM Considerations 

1. EOB in last position of buffer 

2. Reserved areas in DECB 

3. WR TN after WR TI for switched lines 

4. Same features within line groups 

5. All skip bits on for line 

6. No circle D on Read TP 

7. Translate macro limit -256 bytes 

8. Read or Write Conversational use dial list 

9. S parameter for terminal list entry on Read TI 

10. Don't use S parameter for terminal list entry on 
switched line. 

11. Falling through TWAIT on previously completed I/O 

12. Read Initial with reset always resets 

13. Location of lOB 

IBM 226 Module For OS BTAM 

A. Introduction 

1. Remote environment 
2 . Contents of module 
3. Bibliography 

B. 22 6 Hardware For Remote Operation 
1. 2848 Display Control 

a. Function 

b. 3 basic models 
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c. Optional features 

d. Operator controls and indicators for 2 84 8 
2. 2260 Display Station 

a. Two models 

b. Standard features 

c. Optional features 

d. Operator controls 

e. Control symbols 

f. Control keys 

g. Example of keyboard operations 

C. ASCII Line Control 

1. Requirements of line control 

2. Start-Stop line control 

a. Six control characters 

b. Two additional characters for control 

c. Modes of operation 

d. Control status 

3. Addressing sequence 

4. Similarity with 1050 line control 

D. Data Flow, Associated Hardware, and Code Sets 

1. Between 2848 and 2701 

2. Between S/360 Channel and 2701 

3. Remote 2 848 

a. Data set adapter interface with data set 

b. 2848 Data Set adapter 

c. Common Control 
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E. Commands, Sequence and Responses, and Channel Programs 

1. Sequences and Responses 

2. Eight commands can be executed 

a. Specific Poll to 2260 

b. Specific Poll to Printer (1053) 

c. General Poll 

d. Read Full DS Buffer 

e. Write Addressed DS or 1053 

f. Erase/Write and Line Address Write 

3 . Effect of Dynamic Buffering 

a. PCI occurs 

b. PCI appendage receiver control 

c. Chain of 4 CCW's perform read and write 

d. This chain replaces read's and writers 
described in channed programs, 

F. Programming Considerations and Sample Program 

1, Purpose of program 

2. Programming considerations 

a. JCL 

b. Special considerations 

c. DSECT 

d. Buffer Pool 

e. Addressing and Polling Lists 

f. Read's and Write 's 

g. Sequence of I/O Operations 

h. I/O return codes and completion codes 
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i. Polling considerations 
j . Translate 
k. Terminal table 
1 . ERROPT in DCB 
G. CLASS PROBLEM 
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OS BTAM Device Independent Considerations 

Outline 

Page Number 

A, Basic Operation of BTMl 4,1,3 

B, BTAM Buffering 4.1,9 

C. BTAM Macro Considerations 4,1,17 

D. Error Recovery Procedures 4.1.33 

E, Channel Programs 4.1.35 

F. General OS BTAM Considerations 4.1.39 

Visual Aids 
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OS BTAM DEVICE INDEPENDENT CONSIDERATIONS Outline 

Objectives: This topic has been written independent of a device 
and describes: 

1. How BTAM fits into the OS system. 

2. BTAM buffering. 

3. The basic operation of the various BTAM macros. 

4. Error Recovery. 

5. Channel programs. 

6. General OS BTAM considerations. 

The instructor will diraw on the device dependent topics 
to describe in detail how BTAM operates for a particular 
device. 

***** 

Suggested Sequence: 

A. Basic Operation of BTAM 

NOTE: Foils l-V-1,2,3,4, and 5 show how BTAM fits into the system and 
what functions it performs. Foil l-V-16 can be used if 
desired to further discuss BTAM's operation; however, these fun- 
ctions could have been discussed in the sequence of foils 
V-2,3, and 5. 

Foils l-V-17,18,19,20,21, and 22 are layouts of the control 
blocks and are included if the instructor should get a de- 
tailed question concerning their contents. 

1. Relationship between User's Program and Supervisor 1-V-l 

a. Supervisor 

1) UCB - Unit Control Block 

a) Generated at SYSGEN time when rest of system 
is generated. 

b) Will have UCB for each communication line. 

c) Describes the nature of the devices on the 
line, e.g. , 

Physical device address 

Type of TCU 

Type of adapter 

Terminal, e.g., 2260 

Optional features, e.g., auto call 

2) lOS - Input Output Supervisor 

a) Function - two prime functions 

To service all I/O requests, i.e., start and 
supervise I/O operations for programs request- 
ing use of an I/O device. 
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To process I/O interruptions resulting from 
the execution of the channel programs. 

b) Two major program sections within lOS: 
EXCP supervisor - handles I/O requests 
Input/Output supervisor 

b. User's program 

1) User has I/O activities he wishes to perform 

2) How does user interface with lOS 

a) EXCP 

Programmer can use Execute Channel Program 
(EXCP) macro that interfaces directly with lOS 

Programmer would have to construct channel 
programs and program for all other functions 
which would be performed by an access method. 

b) Access method - in this case BTAM 

The user in his program at assembly time will 
generate control blocks to be used for passing 
parameters to BTAM. 

The DECB will be used to pass parameters 
for the reads and writes. 

At execution time an OPEN macro is executed. 

2. Relationship between User's Program, BTAM, and Supervisor 
l-V-2 

a. At execution of OPEN 

1) Initializes the Data Control Block (DCB) for a 
line group. 

a) DCB serves three functions 

Identifies access method 

Specifies features of access method, e.g., 

buffering 

Provides pointers to other control routines 

and read/write routines 

b) All lines within a line group must observe 
following requirements 

All lines must be switched or nonswitched. 

All terminals must be the same type. 

All lines must share the same buffer pool if 

one is defined. 

All lines must have same hardware features. 
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c) How do we determine which lines are to be 
associated with which DCB's? 

The DCB has a DDNAME parameter which l-V-3 
references a DD card or cards in the JCL. 
These DD cards will then specify the line or 
lines in the line group. 

NOTE: l-V-3 shows two examples of DD statements. In the first GRPl 
would be referenced by one DCB while GRP2 would be referenced 
by a second DCB. 

The references to GROUPONE and GROUPTWO are names defined 
at SYSGEN which refer to groups of lines. 

The second example shows DD cards which indicate by actual 
address which lines will be associated with the DCB. 

2) Build Data Extent Block (DEB) l-v-4 

a) One per line group 

b) Main function is to indicate extent of data 
set associated with related DCB. 

Will point to each UCB associated with line 
group. Determined which to point to on the 
basis of DD cards in JCL which were pointed 
to by DDNAME parameter in DCB. 

3) Builds Input/Output Block (JOB) 

a) One per line 

b) Used by BTAM to pass parameters to lOS. 
Therefore, it performs the function for BTA]^4 
that the DECB performs for the user, i.e., 
passing of I/O parameters. 

4) Loads 

a) BTAM Read/Write Routines 

b) Buffering routines 

5) Builds buffers if requested 

b. Additional OPEN functions l-V-5 

1) Load I/O modules 

a) An I/O module loaded for each type of device. 



4.1.5 



NOTE: l-V-17 is a foil of an I/O module layout. It can be used at 
the instructors option. 

b) Contains 

Channel Command Words (CCW's) for channel 

programs 

Transmission control characters 

2) Load Appendages 

a) Appendages are routines provided by the access 
method at OPEN time that allow additional 
control over I/O operations during channel 
program execution. 

b) lOS will utilize these appendages as if they 
were extensions of lOS. 

c) Two appendages available with BTAM 

Program Controlled Interrupt (PCI) appendage, 
utilized if dynamic buffering specified, 
Channel End/Abnormal End appendage, entered 
when Channel End interrupt occurs or 
when abnormal end, e.g.. Unit Check, occurs. 

c. Execution of program 

NOTE: Instructor can continue to use foil l-V-5 or use l-V-16. 

1) Read execution time 

a) READ in user's program causes control to be 
passed to BTAM Read/Write routine (this address 
in DCB) 

b) BTAI^4 Read/Write routine builds channel program 
dynamically and places it in lOB (Uses I/O 
module to build program) 

c) Control passed to lOS at this point 

d) lOS issues START I/O 

e) Control passed back to user's program. User 
at this point must check return code to be 
sure operation started properly. 

f) If user cannot do processing before read com- 
pletes, must go into wait for I/O completion. 

g) Channel program execution is continuing con- 
currently with user's program during this time. 
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h) On Channel End (CE) or abnormal end lOS regains 
control and enters appendage. 

i) Action appendage takes depends on status bytes 
set. 

If I/O complete, post completion in an event 
control block (first word of DECB) and return 
control to user. 

If polling and receive negative response, 
reinitializes channel program and restarts 
it. 

If error and Error Recovery Procedures spec- 
ified, lOS will pass control to these routines 
for diagnosis and recovery. 

NOTE: If dynamic buffering employed^ lOS may have to service a PCI 

interrupt. In this case control is passed to the PCI appendage 
which handles the requirements imposed by dynamic buffering. 

j) If I/O complete when user's program regains 
control must check completion to see if it 
was good transmission. 

This completion code is found in the Event 
Control Block (ECB) which is the first word 
of the DECB. 

At completion BTAM will place status and 
sense bytes in DECB. 

2) Translate 

a) Message received may have to be translated 
from terminal transmission code to EBCDIC. 

b) Messages being sent have to be translated from 
EBCDIC to terminal code. 

c) User will employ translate macro to perform 
this operation. 

d) Assemble translate table macro is employed to 
generate the required translate tables. 

3) Line Error Block (LERB) 

a) The user can employ a facility of BTAM to keep 
a record of transmission errors, namely. 
Interventions Required 
Time-outs 
Number of transmissions 
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b) User specifies where to keep these counts with 
LERB macro. 

c) User can print these counts out at any time 
employing the LERPRT macro. 

4) Define terminal list 

The BTMl channel programs require information from 
the users program concerning: 

Addressing characters, i.e., what stations and their 

components are to be addressed on a line. 

Polling characters, i.e., what stations and their 

components are to be polled on a line. 

If auto call is employed what is the telephone 

number of the station being called. 

This is all information required by BTAM to control 
the line and only the user can provide BTAM with 
this data. This is the function of the DFTRMLST 
macro. 

BTAM will actually transmit characters from the 
users terminal list when polling and addressing 
stations. 

5) Release buffer 

a) When using the buffering facility of BTAT/I after 
a read it is necessary to return to the pool 
whatever buffers were required. 

b) The user employs the RELBUF macro to do this. 

6) Close 

User uses CLOSE macro to conclude BTAM operation 
when the job is completed. 

NOTE: All BTAM macros have not been convered at this point. The 
purpose of the preceding was to provide a feeling for the 
operation as a whole and some of the macros most frequently 
used. 
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B. BTAM Buffering 

1. Why buffering 

a. To achieve concurrent operations 

1) Many I/O devices (lines) transferring data to and 
from CPU simultaneously. 

2) All this I/O occurring concurrently with CPU pro- 
cessing. 

b. Therefore buffering permits optimum usage of the computer 
system. 

2 . Why BTAM buffering 

a. Utilizing BTAM's buffering facility a pool of buffers 
can be formed to service a number of lines. 

b. As a buffer is required for a line, it is drawn from the 
pool. As soon as there is no further requirement for 
it, it should be returned to the pool. 

c. With this type of operation less space is required for 
buffers than would be required if each line was to have 
its seperate buffers. 

d. BTA]^4 relieves the user of having to perform a similar 
operation himself. 

NOTE: It is possible to utilize BTAM without calling on the buffering 
facilities. In this case all I/O operations will specify an 
address of a user's defined area and a count of characters 
to be transferred to or from this area. 

3. Format of buffer pool l-V-6 

a. Any buffer pool utilized by BTAM, buffer management 
routines must have the format indicated in l-V-6. 

b. Buffer control block 

1) Address of available buffer contains the address 
of the first buffer in the pool which is available 
for use in I/O operations. 

2) Number of available buffers 

Indicates how many buffers in the pool are available. 

3) Length of buffers 

Indicates the length of the buffers. All buffers 
will be same length. 
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c. Buffers 

Each buffer will have an address pointing to the next 
available buffer. The last available buffer will have 
O's in this field. 

4. Ways of building a buffer pool 

a. GETMAIN and BUILD l-V-7 

1) User uses OS GETMAIN and BUILD macros prior to 
OPEN to build pool. 

NOTE: Could use DCB exit from OPEN to build pool in this fashion 

2) GETMAIN obtains space for pool. 

Address of area obtained returned in register 1. 

3) This address is stored by user in the DCB field 
reserved for pointer to buffer control block. 
Could store this address in more than one DCB if 
one wishes them to share same pool between line 
groups. 

NOTE: By sharing a pool between more than one DCB should be able 
to utilize buffers more efficiently. Should require fewer 
buffers than would be required if a buffer pool for each DCB. 

4) The address returned from GETMAIN given to BUILD 
macro. 

BUILD will then build pool consisting of the number 
of buffers and length specified. 

NOTE: The BUILD need not be given before the OPEN. However, GETMAIN 
and storing of address in DCB must be done before OPEN or on 
OPEN exit. 

5) Storing BUFL in DCB 

It is the programmer's responsibility to assure 
buffer length is stored in DCB. 
Include as parameter in DCB macro. 

NOTE: When obtaining the buffer pool in this fashion buffer number 
will never appear in the DCB, the reason being that BTAM has 
no need for it to be there. 

b. Area defined at assembly and BUILD l-V-8 

1) This is basically the same as the preceding except 
instead of a GETMAIN the user defines the area at 
assembly time with DS or DC statement. 

2) User should put address of this area in DCB at 
assembly time along with the buffer length. 
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c. GETPOOL l-V-9 

1) Combination of GETMAIN and BUILD 

2) Buffer control block address and buffer number 
inserted in DCB by GETPOOL 

3) GETPOOL should be issued before OPEN 

4) Buffer length parameter should be included in DCB 
macro for assembly. 

NOTE: Even though GETPOOL places buffer number in DCB, it is not 
required by BTAM. 

5) GETPOOL will place buffer control block address in 
a particular DCB. Therefore, if the user wished to 
share the pool between more than one DCB, it would 
be up to him to get the address out of the one DCB 
and place it in the other DCB's. 

d. At BTAM OPEN 1-V-lO 

1) Simpliest method to employ 

2) At assembly time buffer length and buffer number 
are included as parameters. 

3) At OPEN time 

Buffer pool is constructed. 

Buffer control block address will be placed into 

the DCB at this time. 

4) Buffer pool associated with only that DCB. However, 
after OPEN user could obtain address of buffer control 
block from that DCB and place it in other DCB's. 

If the user were to do this he would want to be sure 
that the other DCB's did not have buffer number 
parameter at assembly time. Also these DCB's could 
not be OPENed at the same time as the one with 
BUFNO. 

NOTE: There are three conditions BTAM checks before building a 
buffer pool. 

1. No buffer control block address is in the DCB at OPEN 
time. 

2. A buffer number is in the DCB at OPEN time. 

3. A buffer length is in the DCB at OPEN time. 
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NOTE: The construction and format of a buffer pool is the same for 
dynamic buffering as no dynamic buffering. 

It is suggested the instructor now discusses the use of the 
buffer pool when dynamic buffering is not employed. Following 
that discuss use of the pool when dynamic buffering is employed, 



Ways of obtaining a buffer from the pool 
a. Obtaining buffer for READ 
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1) 'S* parameters for Area and Length 
The user can specify 'S' for Area and Length 
parameters in which case at Read execution time 
buffer management will go to the buffer pool for 
a single buffer. This will be the first available 
buffer (BUFFA) . The length of the buffer is obtain- 
ed from the data control block. Both parameters 
are placed in the DECB. 

The buffer control block is updated to point to the 
next available buffer. 

A block of the message will be read into the buffer 
starting at the first byte thus overwriting the 
link address which once existed in the first four 
bytes. This address is no longer required, since 
the buffer is not part of the pool at this time. 

The block length must not exceed the length of one 
buffer. 

Again the instructor is reminded dynamic buffering is not 
being considered at this point. 

Even though buffer management is available, the user may 
specify an actual address of some area other than a buffer 
from the pool into which he wishes to read. However, the 
length of this area must be the same as specified for the 
buffer pool. 

2 ) REQBUF 

The user can request a buffer from the pool using 
the REQBUF macro. The user must then pass the 
address of the buffer to the READ via a register. 
He can also supply the length or still use the 'S' 
parameter for length in which case BTAM will get 
the length from the data control block. 

NOTE: For reading, this last method of obtaining a buffer does not 
seem to buy the user that much. 



NOTE 



NOTE 
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3) RELBUE' 

Regardless of which method is used to obtain a buffer 
it is the user's responsibility to return it to the 
buffer pool. 

The RELBUF macro is used to return the buffer to 
the pool. This buffer is returned to the head of 
the pool since the pool works on a last in first 
out (LIFO) basis. The buffer control block will be 
modified to point to this buffer as the next avail- 
able, and the buffer formerly pointed to by the 
buffer control block will be pointed to by the one 
just returned to the pool. 

NOTE: Prior to releasing the buffer back to the 

pool, the user must be sure the first 4 bytes 
of the buffer contain 0. It is possible to 
release a string of buffers back to the pool 
with each buffer pointing to the next with 
the last containing O's in the pointer field. 

b. Obtaining buffer for WRITE 

1) Since the user is the only one in the position to 
know where the output message is located, it is 

his responsibility to provide BTAM with its location. 
Therefore, the 'S' parameter is not valid. 

However, the length parameter can be 'S' in which 
case BTAM will go to the DCB for the length. There- 
fore, the 'S' parameter is used only when the out- 
put is the same length as the buffers in the pool. 

2) REQBUF 

With the REQBUF macro the user requests a buffer 
from the pool. He then fills it with the data to 
be transmitted and writes it out. The length of 
the message block is limited to the length of the 
buffer. 

3 ) RELBUF 

Once finished with the buffer it should be returned 
to the pool with the RELBUF macro. 

NOTE: Frequently it may be desirable to write out a message which 
has been assembled as part of the program, e.g., an opening 
message. In this case the user need only indicate the address 
in his program where the mdssage is located and its length. 
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NOTE: To provide more insight into the use and operation of the 
buffer pool, it might be pointed out that it is actually 
possible to release a buffer to the pool which had never 
been part of the pool. In other words once a buffer is taken 
from the pool, the pool has no idea it ever existed. There- 
fore, anything returned to the pool is automatically assumed 
to have come out of the pool. 

The user should not do this in his program. It is only pointed 
out to further illustrate the operation of the pool. 

6 . Dynamic buffering 

NOTE: The concept of buffer pools is the same for dynamic buffering. 
Therefore, the pool is built using one of the methods already 
described. 

a. Why dynamic buffering 

1) Handles variable length blocks 

a) Provides capability to receive or transmit 
a block of data whose length may exceed the 
size of the buffer. 

b) On Read continuous stream of data read into 
noncontiguous buffers. 

c) On Write continuous stream of data written out 
of a chain of noncontiguous buffers. 

2) With this capability the user can easily handle 
variable length blocks where it is not practical 
to use a buffer length for the maximum size block. 

NOTE: The dynamic buffering facility of BTAM is a powerful feature 
and should be used when the block length is variable, partic- 
ularly when there is a big difference between the minimum 
and maximum size message. 

The user gets the dynamic buffering facility by indicating 
BFTEK=D in DCB . 

b. Operation 

1) Dynamic buffering with READ 

a) Use of 'S' parameters 

By using 'S' for the area and length parameters 
the user tells BTAM to go to the buffer pool 
for a buffer. While a buffer is filling, BTAM 
has gone to the buffer pool for another buffer 
and has prepared to use it if the block exceeds 
the one presently being filled. This process 
continues until enough buffers have been obtained 
to hold the entire block. 
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b) Format of buffers taken from pool l-V-12 
Since the block just read may extend over more 
than one buffer it is important that the user 
knows where each one is. The DECB points to 
the first buffer. Each buffer in turn will 
point to the next buffer in the first four 
bytes. The last buffer will have O's in this 
pointer field. Therefore, the data is not 
read into the first four bytes. 

The high order byte of each buffer is used to 
post completion when that particular buffer 
is full. Oihce the entire block has been read 
the primary : ECB in the DECB is posted complete. 
It is possible for the user to wait on the 
ECB's in the buffers and in that manner process 
one buffer while another is filling. 

NOTE? The problem with the above ; is that a buffer may be prematurely 
processed. That is, a buffer is posted complete and processed; 
however, at the end of the message LRC's don't check. There- 
fore, buffers which may have contained an error have been 
processed. 

c) Effect on buffer pool l-V-13 
The reference foil indicates what happens to 
the pool when there are two operations occurring 
concurrently. Line 1 requires a buffer at 
times 1, 3, and 5. Line 2 requires a buffer 

at times 2 and 4. 

NOTE: On a read the user can specify an address other than the 

pool; but, regardless of the length he specifies, BTAM goes 
to the buffer control block for the length. 

NOTE: Once the user has indicated dynamic buffering is to be 

employed, all I/O operations will be treated as if the buffers 
had a dynamic buffering format, i.e., the first 4 bytes a 
pointer field. Therefore, if the user is doing nothing more 
than writing out an assembled opening message, it must have 
a pointer field, all O's if it is the only buffer. 

2) Dynamic buffering with WRITE 

a) Area 

The user must specify to BTAM the buffers to 
be transmitted. It operates the same as the 
READ, i.e., the buffers must all be linked 
together with O's in the pointer field of the 
last. 

The user obtains the buffers with a REQBUF 
or writes out of some area he specified at 
assembly time. 
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b) Length 

The user can use the 'S' parameter which will 
result in buffers being transmitted until an 
End of Block character is encountered. 

The user can indicate the actual length of 
the message if he desires. 

c) RELBUF 

Any buffers which have been obtained from the 
pool, by REQBUF or 'S' parameter in READ, 
must be returned to the pool with RELBUF. 

RELBUF can release a chain of buffers back to 
the pool. However, the user must be sure each 
points to the next and there are O's in the 
pointer field of the last. 

d) Buffering summary l-V-14 
The referenced foil summarizes the different 
methods of obtaining a buffer pool and the 
methods by which a READ or WRITE can utilize 
the pool. 

e) Effect of dynamic buffering on Translate 
Dynamic buffering effect the TRNSLATE macro in 
that it will translate all buffers as dynamic 
buffers, i.e., assumes the first 4 bytes pro- 
vide a pointer field. 
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C. BTAM Macro Considerations 

NOTE: The main purpose of this sfection is to discuss these macros 
which have not been mentiohed and to point out parameters of 
macros which warrant special discussion. 

It is recommended the instructor does not spend too much 
time discussing those macros and parameters which are well 
covered in the SRL. 

Foils l-V-23 to l-V-36 are provided for instructors use if 
necessary. 

1, Data Control Block (DCB) macro 

a. DSORG 
Always CX 

b . MACRF 

Indicates whether access to line group is to be READ, 
WRITE, or both. 

c . DDNAME 

1) Symbol which will appear in JCL DD card read at 
execute time. 

2) This DD card (or cards) will actually define which 
lines are associated with the DCB. 

d . BUFNO 

Must be entered by user when buffer pool is to be built 
at OPEN time. 

e . BUFL 

Must be entered by user when buffer pool is to be built 
at OPEN time. 

Also entered when user builds own buffer pool. 

f. BUFCB 

Address of buffer pool control block. If buffer pool 
built at OPEN time BTAM provides BUFCB. 

If user builds pool BUFCB, he must fill in at execution 
time . 

If user utilizing an area he defined at assembly time for 
pool, he could fill in this value at assembly time. 

g. EXLST 

Normally not used. Only the DCB exit possible. At that 
time user could build buffer pool. 
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h . BFTEK 

Use D is dynamic buffering employed. This is the only 
way to indicate to BTAM that dynamic buffering is to be 
included. 

i. LERB 

Specifies address of line error block. This parameter 
used only when C included in ERROPT. 

j . ERROPT 

E - basic error recovery procedures (ERP) 

R - read text errors to be retried, not applicable with 

dynamic buffering 
W - write text errors to be retried, not applicable with 

dynamic buffering 
C - indicates LERB to be kept 
N - no ERP to be included 
T - terminal test facilities to be included 

2. Line Error Block (LERB) macro 

a. Symbol 

Address referenced by LERB entry in DCB. 

b. NLINES 

Number of lines associated with line group. 

c . TRANSMCT 

Threshhold for transmission count 
Default option 255 

NOTE: Whenever any of the threshhold values are reached, the counts 
are printed out. The counts are then added to the accumlative 
totals. 

d . DATACK 

Threshhold for data check count 
Default option 10 

e. INTREQ 

Threshhold for interventions required 
Default option 5 

f . NOTTO 

Threshhold count for non-text time outs. 
Default option 5 

g. Example 

ALERB LERB 10 , , , (200 , 20 , , 7) , , , (240 , 20 , 25 , 10) 

Two lines will have default options of 255, 10,5, and 5. 
Three lines will have 200,20,5 (default option), and 7. 
Five lines will have 240,20,25, and 10. 
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NOTE: User may indicate only "NLINES" and default options will be 
taken for each line. 

3. Assemble Translation Table (ASMTRTAB) macro 
SRL contains names of all ta.bles. 

4. Define Terminal List (DFTRMLST) macro 

NOTE: Terminal list is very much c&evice dependent and the instructor 
is referred to the device modules of this outline for examples. 
This section will discuss in general terminal list consider- 
ations . 

a. Purpose 

The BTAM channel programs require information from the 
users program concerning: 

Addressing characters, i.e. , what stations and their 
components are to be addressed on a line. 
Polling characters, i.e., what stations and their com- 
ponents are to be polled on a line. 

If auto call is employed what is the telephone number 
of the station being called. 

This is all information required by 'BTAM to control the 
line and only the user can provide BTAM with this data. 
This is the function of the DFTRMLST macro. 

BTAM will actually transmit characters from the users 
terminal list when polling and addressing stations. 

b. Parameters 

1) Symbol 

Name of terminal list 

2) Lis type 

NOTE: There are a number of possible entries for list type which 
vary depending on the type of terminal and the features of 
the Transmission Control Unit. These options can be found 
in the SRL and the device dependent modules of this outline. 
However, this module discusses three of the more important list 
types to provide a basis for understanding the others. 

a) OPENLST 

Used for polling or addressing. On polling 
BTAM will poll each entry in the list until 
one responds with a block of data. If all 
terminals in list polled with no positive 
response, polling stops on reaching the last 
entry . 

For addressing a terminal, an OPENLST is re- 
quired. 
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NOTE: For an addressing list the user will probably have a separate 
DFTRMLST macro for each terminal. For a polling list there 
may be one DFTRMLST macro for all the terminals on a line. 

b) WRAPLST 

The WRAPLST is only used for polling. As soon 
as the polling list has been exhausted by 
receiving negative responses, BTAM goes back 
to the start of the list to continue polling. 

NOTE: In use of the WRAPLST, the user must realize that BTAM will 

continue recycling through this list until a positive response 
is received or until a RESTPL macro is given. 

c) DIALST 

Used with 1050 's on switched lines. Presence 
of telephone number indicates calling list 
and absence of telephone number indicates 
answering list. 

3) Device dependent operands 

User must be sure to use characters in the trans- 
mission code to be employed. 

User must be sure he uses the characters specified 
by the CE ' s at installation time. 

c. Forraat of expansion l-V-15 

1) OPENLST 

Each entry in the list is expanded to include the 
addressing bytes and a control character for each 
pair of addressing bytes. 

This control character provides control information 
to BTAM. 

NOTE: Some terminals may only have a single addressing byte; how- 
ever, they still have a control byte. 

2 ) WRAPLST 

This list will have basically the same format as 
the OPENLST except in this case the last item in 
the list will be a negative offset value which BTAM 
will use to get back to the beginning of the list. 

3) DIALST 

Basically same format as an OPENLST. However, in 

case of calling list has a count of the number 

of digits in the number followed by the number 

In answering list count is O and no number is given. 
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Change Terminal Entry (CHGNTRY) macro 

a. Operation 

As just described BTAH uses characters from the terminal 
list to address and pdll terminals. Prior to addressing 
or polling a station, BTAM checks the control byte 
associated with the characters to see if a skip bit has 
been set. If the skip bit is set, the terminal is skip- 
ped. 

The CHGNTRY macro provides the means of setting the bit 
(skip) or turning the bit off (activate) for any entry 
in the addressing and polling lists. 

b. Parameters 

1) list 

Address of start of list 

2) listype 

Describes the type of list 

3) position 

Position of entry in list 

4) numchars 

Number of polling or addressing characters per entry. 

5) action 

SKIP - stop polling or addressing 
ACTIVATE - start polling or addressing 

OPEN and CLOSE macros 

a. Example of OPEN using standard form of macro 

NOTE: Format is same for OPEN and CLOSE, therefore examples 
show only the OPEN. 

1) Open one DCB 

a) Using symbolic address 
OPEN (DCBl) 

b) Using register 
OPEN ( (r) ) 

2 ) Open two or more DCB ' s 

a) Using symbolic addresses 
OPEN (DCBl, ,:DCB2, , . . . .) 

b) Using registers 

OPEN ((Rl) ,, (R2) ,, ) 
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NOTE: This last example is least likely to be employed, 
b. Example of OPEN using L and E forms of macro 

OPEN MF=(E,DCBLIST) 

DCBLIST OPEN (DCBl , , DCB2 ) ,MF=L 

In this manner the OPEN and CLOSE can refer to the 
same list, 

NOTE: If the list should contain a DCB for a line(s) which 
is not available, the user simply does not enter a 
DD card in the JCL for that line group and it is not 
opened. 

7 . LOPEN macro 

a. Purpose 

At OPEN time for many devices the OPEN routine will try 
to issue a SAD or ENABLE com.mand to the line. If a line 
error occurs at this time, the line is not opened. The 
user is not aware of this until a READ or WRITE macro 
is given for that line. At that time he gets a return 
code (x'14') indicating the line error occurred at OPEN. 
He can now try to overcome this problem by issuing an 
LOPEN to open just that line since the rest of the line 
group is open. 

b. Format 

Indicates DECB address for that line. 

c. Return codes 

There will be return codes for this macro indicating 
whether line was opened or not, 

NOTE: For some devices, e.g,, 2848, the LOPEN does not apply. 

8 . READ and WRITE macros 
a. Form 

1) L form 

User will employ this in a constants area to generate 
the list, i,e., DECB which will be used to pass 
parameters to BTAM. 
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2) E form 

User will employ this form in his executable coding. 
It expands to executable coding which fills in the 
DECB with the parameters specified by the user. 
If a parameter isn't specified the one already in 
the table is passed to BTAM. 

3) Expansion of L form 

Since the L form Results in the DECB being built in 
the constants area, it is a simple matter for the 
user to expand the DECB to include additional infor- 
mation he wishes to maintain concerning a line and 
its related terminals. The need for this type of 
information becomes more apparent when the user has 
a syst€5m consistirig of multiple communication lines 
with multiple terminals on each line. 

b. Parameters 

NOTE: Emphasize that all parameters but "optype" can be passed 
in registe^rs and in actual practice this will normally 
be the case, 

1) decb 

Address of DECB associated with line 

2) optype 

Specific type of operation. In L form of macro 
can use any "optype" or just "T". 

3) deb 

Address of DCB for line group 

4) area - address of first byte of I/O area 

a) Read 

Can use symbolic address or 'S'. Use of 'S' 
tells BTAM to get buffer from pool. 

NOTE: Keep in mind that when employing dynamic buffering 
the data is actually found starting in the fifth 
byte of the buffer. The first four bytes are 
used as an ECB and pointer to next buffer. 

b) Write 

User must provide the address for the write. 

5) length 

a) Read 

User can speqify a count or 'S'. If 'S', BTAM 
gets length firom DCB. 
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NOTE: With dynamic buffering, length includes four bytes 
for the link field. 

NOTE: If user is not using dynamic buffering, he must 

be sure the buffer is large enough to contain the 
text and the control bytes. For example, the first 
block consists of a start of text character fol- 
lowed by text which is concluded with an end of 
block character (EOB) . These two control char- 
acters are read into the buffer, 

NOTE: Receiving of EOB terminates the READ regardless 
of the size of the count. 

b) Write 

User may use actual count or 'S'. 

NOTE: The user must be sure the count is at least great 
enough to include the EOB character. As soon as 
this is transmitted the WRITE is completed regard- 
less of the count indicated in the length parameter 
If dynamic buffering with 'S' parameter, blocks 
are written until EOB encountered. 



6) 



entry 
a) 



Non-switched line 
For OPENLST: 



Parameter must specify an address of an entry 
in the list 

For WRAPLST (i.e., a poll list): 
Parameter can specify an address of any entry 
or an 'S'. V^Then using the 'S' parameter polling 
will start with the address of the next entry 
if a RESETPL macro was used to stop polling 
previously. If RESETPL was not used, polling 
will start with the last entry polled. 

NOTE: The DECB has a field which points to the current 
entry in the poll list. If polling should be 
stopped because of a RESETPL macro this current 
entry pointer is incremented to point to the next 
entry. Therefore, when polling is restarted by 
the next read, the 'S' parameter tells BTAM to use 
this polling pointer field in the DECB to start 
polling. If the previous read happened to be 
terminated by a positive response to polling, i.e., 
a message was received, this polling pointer field 
would not be incremented. Therefore, when the 
next read is issued the 'S' parameter causes it to 
start polling with the last terminal polled. In 
effect it will "poll to exhaustion", i.e., poll 
a station until it has no more messages to send. 
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NOTE: If uEser employs 'S' parameter, he must be sure 

that an initial entry gets into the DECB for the 
first read. This can be done in two ways: 

° In L form of macro put address of beginning 

of list. 
° By the user's program placing the starting 

address of the list in the polling pointer 

field (DECPOLPT) . 

NOTE: The disadvantage of the first method, which the 
second overcomes, is there may be a WRITE given 
before the READ in which case the "entry" para- 
meter placed in the L form of the macro is clob- 
bered by the WRITE 's entry. 

b) Switched line 

User specifies address of beginning of list. 

7) RLN 

Specifies relative line number within group. 



Determination of the relative line number is com- 
pletely dependent on the DD cards for the line group 
which are read at execute time. Examples are the 
best way to illustrate this. 



Example 1 

//TERM 

// 

// 



DD 
DD 
DD 



UNIT=020 
UNIT=022 
UNIT=023 



In this example RLN 1 will be 020, RLN 2 will be 
022, and RLN' 3 will be 023. 



Example 2 

//TERM 

// 

// 



DD 
DD 
DD 



UNIT=020 
UNIT=023 
UNIT=022 



In this example RLN 1 will be 020, RLN 2 will be 
023, and RLN 3 will be 022. Note the significance 
of the order of the DD cards. 



4.K25 



Example 3 

//TERM DD UNIT=(GRP0NE,3) 

In this case GRPONE was a name assigned to lines 
at SYSGEN time. Assuming the macro at SYSGEN was: 

UNITNAME UNIT=(020,030,040) 
NAME=GRPONE 

then the user would use RLN 1 for 020, RLN 2 for 
30, and RLN 3 for 40. 

NOTE: There is a DECB for every line. Therefore, it is 
quite likely the user will indicate relative 
line number in only the L form of the macro and 
the E forms need never give that parameter. 

8) MP 

Already discussed 

c. Return codes 

Following the issuing of a READ or WRITE macro, the user 
must check return codes in register 15 to see if the 
operation was started all right and if not why it wasn't. 

Following is the information provided by the return codes 

Started OK 

Line busy 

Invalid "rln " 

Invalid "optype" 

Skip bits on for all entries (see CHGNTRY macro) 

Line error during OPEN (see LOPEN macro) 

Buffers not available 

No buffer pool 

No buffer routine 

NOTE: See SRL for additional details on return and 
completion codes. 

d. Completion codes 

As soon as the I/O operation is complete, it is the users 
responsibility to check how it is completed. 

There are 3 possible completions: 

Normal 

I/O error 

Enable command halted or I/O operation purged 
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Reset Polling or Reset Line (RESETPL) macro 

a. Purpose 

The value of the RESETPL macro is that it permits the 
user to terminate polling on a line. For example, if 
polling with a WRAPLST is in progress and there is 
something to send on the line, the RESETPL can be issued 
to terminate polling so a WRITE can be issued. 

To restart polling the user merely issues another READ 
initial macro. 

1) Operation non-switched line 

If polling in process and negative response received, 
polling terminated and operation posted complete 
with X '7F' . 

If positive response or time-out occurring, operation 
will proceed to normal completion, 

NOTE: See discussion on "entry" in Read macro to see 
results of RESETPL on polling pointer. 

2) Operation switched line 

NOTE: With switched lines BTAJ^4 must see that an ENABLE 
command is issued to the line before any calls 
can be received. The channel program will not 
start polling until the connection is completed. 

If the connection has not been made, the RESETPL 
causes lOS to issue a HALT I/O to the line. A 
completion code of x '48' is posted in this case. 

If the connection has been made, the operation of 
the RESETPL is the same as described for non- 
switched lines. 

b. Parameters 

1) decb 

Address of data event control block 

2) POLLING or ANSRING 
POLLING 

Macro generated will handle non-switched lines. 

ANSRING 

Macro generated will handle switched lines. 

NOTE: If neither POLLING or ANSRING specified, instruc- 
tions will be generated to determine at execution 
time which situation exists. 
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c. Return codes 

Following this macro there are return codes which must 
be checked. 

NOTE: See SRL for these codes. 

10. Translate (TRNSLATE) macro 

NOTE: When using the TRNSLATE macro and dynamic buffering 
has been specified, it is important the user makes 
sure all information to be translated adheres to the 
dynamic buffering format. This includes messages that 
have been assembled in core and are written out, e.g. 
opening messages. 

a. Parameters 

1) deb 

Address of DCB. Uses DCB to obtain length in same 
cases and to see if dynamic buffering specified. 

2) table 

Specifies name of translate table 
Will be name used in ASMTRTAB macro. 

If register notation is employed, user loads register 
with lECTXXXX where XXXX is name of table. 

3) area 

Specifies starting address of buffer to be translated. 

When dynamic buffering is employed, the TRNSLATE will 
translate the chain of buffers using the link ad- 
dresses to go from one to another. The last must 
have O's in the link address. 

4) length 

Specifies number of bytes to be translated. 

'S' parameter indicates chain of buffers and length 
is available in DCB. 

If register notation is employed, an O in the register 
has the same effect as the 'S' parameter. 

11. Line Error Print (LERPRT) macro 

a. Purpose 

If the user is keeping transmission and error counts 

(kept in LERB) , when any thresholds are reached the counts 
are printed. However, the user at any time, particularly 

at the end of the program, can call for a print out of 

these counts even if the thresholds have not been reached. 
The LERPRT macro does this. 



4.1.28 



Before the print out of these counts under either 
circumstance, the threshold counters are added to the 
accumulative counters and the accumulative counters are 
printed out.. The threshold counts are then set back to 
O (optional when LERPRT used) and as transmissions con- 
tinue these threshold counts are added to until one of 
them becomes as great as the thresholds specified in 
LERB or until another iiERPRT is given. 

b. Parameters 

1) deb 

Address of DCB which contains LERB address 

2) rln 

Specific line fori which counts are to be printed. 

If O all non zero entries in LERB printed. 

3) CLEAR 

a ) NO 

Specifies threshold counters and accumulators 
are not to be reset to after LERPRT 

b) YES 

Specifies error threshold counts and accumula- 
tors are to be set to O after LERPRT. 

12 „ Request Buffer (REQBUF) macro 

a. Purpose 

Obtains one or more buffers from buffer pool. Last 
buffer contains O's in: pointer field. 

Normally this macro will be employed when a buffer (s) is 
required for a block to be transmitted. 

On reads the read routine itself will issue the REQBUF 
if the user has indicated the 'S' parameter for 'area'. 

b. Parameters 

1) deb 

Address of DCB 

2) (r) 

Specifies general register into which address of 
first buffer is to be placed. 

3) count 

Specifies number of buffers requested. 

NOTE: A buffer pool must have been assigned to DCB in 
order for this ilnacro to work. 
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c. Return codes 

Following request buffer, user must check return codes 
to see if: 

Buffers obtained 

Some obtained but not all 

No buffers obtained 

No buffer pool exists 

No buffer routine exists 

13. Release Buffer (RELBUF) macro 

a. Purpose 

It is always the users responsibility to return buffers 
to the pool. He does this with RELBUF macro. 

Can return 1 buffer or a chain of buffers. Last buffer 
must always have O's in pointer address. If only 1 buffer 
returned, it must have O's in pointer address- whether 
dynamic buffering employed or not. 

b. Parameters 

1) deb 

Specifies DCB address 

2) (r) 

Specifies register into which address of first buffer 
must be placed. 

c. Return codes 

Following RELBUF user must check register 15 for return 
code which will indicate one of the following: 

Buffers released 

No buffers returned because first buffer in chain 

had been returned previously 

No buffer pool 

No buffer routine 

14. TWAIT 

a. Purpose 

Following a read or write the user continues processing 
until nothing more can be done because he must wait for 
an I/O operation to complete. At this time he issues 
a wait macro. 

This wait can be entered with the regular OS WAIT macro 
or the TWAIT macro which is a facility of BTAM. 

The TWAIT macro utilized the regular wait facility of OS, 
but the macro expansion provides additional coding which 
determines which event out of a number of events has 
completed. Therefore, the user must define a list of 
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events on which he will wait. The completion of any of 
them will complete the wait and the TWAIT macro will 
furnish him with the address of the event completed. 

The TWAIT is also utilized for the on-line terminal test 
facility. 

Parameters 



1) (r) 

User specified register which will contain address 
of ECB posted complete 

2) TERMTST 

Specifies on-line terminal test facility is provided. 
Must also have ERROPT=T in DCB. 



3) 



NOTE: If on-line terminal test requested, as soon 
as an I/O operation is completed the TWAIT 
routine passes control to the on-line terminal 
test routine to see if the user is trying to 
exercise this facility. If he isn't the users 
program regains control. 

ECBLIST 

Specifies address of user-created list of ECB 

addresses . 



High order byte of each entry is set to except for 
last entry which is set to 1. 

Example 

TWAIT (5), ECBLIST=LIST 



LIST DS 


OF 


DC 


A(DECBl) 


DC 


A(DECB2) 


DC 


X'80' END BIT 


DC 


AL3 (DECB3) 



NOTE: The register the user provides for the address of 
the ECB posted complete should be the one he is 
using for the register to contain the DECB address 
since the ECB address is the same as the DECB 
address. The reason for using this register 
becomes evident when he starts to write a program 
for a multiple line system. 

NOTE: When one of the events complete, the user should 
be sure to clear the ECB of the complete event 
prior to returning to the TWAIT to wait on the 
next event completing. If he doesn't the same 
event will cause him to drop through the wait. 
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This last precaution is not necessary should the 
user issue another I/O operation on the completed 
DECB prior to returning to the TWAIT. 
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D. Error Recovery Procedures (ERP) 

1. Functions - set of routines designed to diagnose and recover, 
if possible, from all errors encountered during transmission. 

a. Basic capabilities 

1) Automatic retry of all errors not involving data 
transfer. 

2) Statistical recording of temporary and permanent 
unit check errors. 

3) Error messages to operator for all permanent errors. 
NOTE : If ERP not wanted can indicate such in DCB . 

b. Other capabilities that can be specified. 

1) Maintain a count in the line error block (specified 
by LERB macro) for data checks, time outs, and inter- 
vention required errors, and the number of trans- 
missions. 

2) Retry write operations when errors in data transfer. 

3) Retry read operations when error in data transfer. 

2 . Operation 

a. User must indicate in LERB and ERROPT parameters of DCB 
which functions are to be performed. 

b. lOS passes control to ERP. 

c. ERP checks condition codes, sense bytes, and status bytes 
in CSW to determine type of error and passes control to 
proper module. 

NOTE: The BTAM II SRL (C30-2004) provides a description of 
the actions taken for the various conditions. 

3. Special considerations 

a. Dynamic buffering 

1) Text retry 

When using dynamic buffering, ERP will not retry 
text I/O errors. 
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2) Users solution to text retries. 

With little effort the user can retry transmitting 
the message. First he must check the completion 
code to determine an error occurred. Also he can 
check the sense byte in the DECB to be sure it was 
a text parity error, i.e., data check (READ) or 
bus out check (WRITE) . 

Next, for READ, release buffers for bad operations. 
This protects against blocks being different size 
on retry. 

Lastly issue Read Repeat or Write to retry. 

NOTE: On a Read Repeat following a Read Initial the user 

may not find a start of text as the first character. 
Therefore, he must compensate for the characters 
all being shifted over by one. Whether this problem 
occurs depends on the type of device and the com- 
ponent being polled. 

b. Regular buffering 

If the user specifies text retries, ERP will perform them. 
However, one caution should be observed. If an error 
occurs ERP will retry without the user becoming involved. 
If the retry is successful, the operation is posted 
complete with a good code, i.e., X'7F'. If this repeat 
should be following a Read Initial the start of text 
character may not appear in the repeat, but the user, 
not knowing a retry was made, would expect the first 
character to be a start of text character. 
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E. Channel programs 

1. Purpose 

BTAM generates the channel programs to perform the I/O oper- 
ation requested in the users I/O macro. 

There are a number of possible channel programs which can be 
called. Model programs are contained in the Device I/O module 
and are modified to reflect the addresses specified by the 
user for I/O areas, terminal lists, and byte counts. 

2. Users concern with channel programs 

The channel programs besides transmitting text are also 
responsible for exercising the line control required to con- 
trol the devices on the line. 

These devices are dependent on receiving the proper control 
characters in the proper sequence , If these rules are not 
observed problems will be caused on the line. 

As mentioned there are a number of possible I/O operations 
(channel programs) each resulting in the transmission of 
certain line control characters and frequently text. 

By specifying ' optype * in the read and write macros the user 
is also specifying the line control characters to be trans- 
mitted or received. Therefore, the sequence of I/O macros 
controls the sequence of line control characters. Should a 
macro not be given or given in the wrong sequence it will 
result in certain line control characters not being given 
or given in the wrong sequence, thus causing transmisstion 
problems . 

3. Basic types of channel programs 

NOTE: The instructor is referred to the I/O modules for specific 
channel programs. This section is provided to indicate in 
general what channel pr6grams exist and at what time they 
are used. 

a. Read Initial and Read Initial with Reset 

1) Purpose 

Used to initiate polling of a line. 

2) Operation 

a) Puts line in control mode 

b) Transmits polling characters 

c) Reads response to poll which can be: 

° Negative response - in which case polling 
will be terminated or the next terminal 
will be polled (BTAM will take care of 
this) 
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NOTE: The action taken depends on the entry in the poll list 
being polled and the construction of the polling list. 

° A positive response followed by the first 
block of the message when the end of 
block character is received the read is 
terminated and the user receives control 
again. 

3) Users next action 

The terminal just read expects a response from the 
CPU. This can be achieved in a number of ways. 

a) If the user expected only a single block mes- 
sage, he could have issued a Read Initial with 
Reset which would send a positive response to 
the terminal and place it back in control mode. 
He could also follow a Read Initial with a 
Write Positive Acknowledgement to achieve same 
result. 

b) If the user expected additional blocks he would 
issue a Read Continue, 

b. Read Continue 

1) Purpose 

Issued following last read to indicate to terminal 
it was a good transmission and to read next block 
from terminal 

2) Operation 

a) Sends positive response to last read 

b) Reads text of next block from terminal 

3) Users next action 

Terminal again expects indication of how the Trans- 
mission went 

a) Read Continue could be issued to again see if 
terminal has another block 

b) Read Continue with Reset will cause the Read 
Continue to conclude with a positive response 
and control characters to put the line back in 
control mode. 
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c. Read Repeat 

1) Purpose 

Issued if last read resulted in error 

2) Operation 

a) Read Repeat sends out a negative response so 
the terminal will retransmit 

b) Next reads the retransmitted block 

3) Users next action 

Must indicate to terminal how transmission went, 

a) Read continue 

b) Read Repeat with Reset would transmit positive 
response and place line in control mode. 

d. Other methods to terminate transmission 

1) EOT from terminal 

Normally when a Read Continue is employed the ter- 
minal will finally terminate by sending an end of 
transmission character. 

2) Reset from CPU 
Already discussed 

3) Write Positive Acknowledgement 

Will cause CPU to transmit a positive response and 
then control characters to put line in control mode. 

4) Write Negative Acknowledgement 

CPU would use this to indicate a bad transmission 
and then put line into control mode. 

e. Write Initial and Write Initial with Reset 

1) Purpose 

Used to select a particular terminal or terminals 
and transmit a block to it. 

2) Operation 

a) Establishes control mode on line 

b) Transmit addressing characters 

c) Read response to see if terminal ready. If 
not operation is terminated. 

d) If positive response, write block 

e) Read response from terminal. 
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3) Users next action 

a) If only one block to be sent, user could have 
specified Write Initial with Reset in which 
case the line is put back into control mode 
following receiving of positive response on 
transmission from terminal. 

b) If another block is to be transmitted the user 
would issue a Write Continue 

f . Write Continue and Write Continue with Reset 

1) Purpose 

Used following Write Initial to transmit next block. 

2) Operation 

a) Writes message block 

b) Read response from terminal 

c) If reset specified will write control characters 
to put line back in control mode. 

g. Examples of sequences 

1) Reading a single block message 
Read Initial with Reset or 

Read Initial and Write Positive Acknowledgement 

2) Reading multiple block messages 
Read Initial 

Read Continues until EOT from terroinal 

3) Reading a single block with error 
Read Initial with Reset 

Read Repeat with Reset 

4) Reading multiple block message with error 
Read Initial 

Read Continue 

Read Repeat 

Read Continues until EOT from terminal 

5) Write a single block message 
Write Initial with Reset 

6) Write multiple block message 
Write Initial 

Write Continue 

Write Continue with Reset 

NOTE: It is important to realize this section is concerned with only- 
discussing channel programs in general and that variations will 
exist for different devices. 
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F. General OS BTAM Considerations 

1. When using BTA]y[ dynamic buffering if the EOB character comes 
into the last position of the buffer, this will cause BTAM 
to pick up an extra buffer and not release it. It is up to 
the user to release that additional buffer before writing 
out of that buffer area or before processing them. This 
consideration is written uip in the BTAM SRL, 

2. Any areas of DECB which are labeled reserved must not be 
used by the user as BTAM wiill use them. For example, the 
area labeled DECAREA has one byte labeled reserved and three 
bytes used for the address of the message area or the address 
of the first buffer. If the user stores the address in here 
himself, he must be sure that the reserved byte is cleared 

to zero as BTAM; expects to find it that way. 

3. When using switched lines after a write initial use a write 
negative acknowledgement to send the EOT sequence before dis- 
abling the line. If this not done, the terminal will hang 

up with a data check. 

4. All lines in the same line group must have exactly the same 
features. The OPEN expects the feature portion of the UCB's 
to look exactly alike. 

5. When all terminals in a teirminal list have their skip bits 
on you will get into an endless loop in BTAM. 

6. When processing a message read in via the read repeat macro, 
the user must remember that the first character of this 
message will not be a circle D. 

7. The translate macro limits the buffer size to a maximum of 
256 bytes. 

8. The entry operand in a read or write conversational macro 
must point to a dial list. The OS BTAM SRL says this should 
point to an open list or the user must do the address arith- 
metic on a dial list himself. Read and write conversational 
work satisfactorily if the user puts an answering type dial 
list as the entry operand. 

9. If you use an S parameter for terminal list entry on a read 
initial, BTAM will utilize the poll pointer in the DECB. This 
means that it is up to the user to initialize that poll point- 
er field before executing the read initial for the first time. 

10. Do not use the S parameter for the terminal list entry on a 
switched line. After the first time the pointer will always 
be in the wrong place. 

11. EXCP resets the ECB. If you go back to the TWAIT without start- 
ing I/O the previous completion code will still be set and you 
will fall through the TWAIT on a previous I/O completion. 
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12. The read initial with reset macro and the write initial with 
reset macro both post normal completion in the ECB even if 

a data check occurs. 

13. The location of the JOB is offset by the size of the lOB and 
its largest channel program. 

NOTE: Many of these statements will always pertain to BTAM. How- 
ever, a few may not pertain to latter releases of OS. This 
list references release 13. 
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IBM 2 26 MODULE FOR OS BTAM outline 



A. INTRODUCTION 

1. Remote Environment 2-V-l, 2-V-2 

a. 2260 Vs connected to S/360 via a communication 
facility. 

2701 is the transmission control unit employ- 
ed. 

b. Data rates 

1200 or 2400 bits per second. 

2 . Contents of module 

a. Hardware for remote 2 260 *s 

b. Operation of remote system 

1) Line control 

2) Data flow 

3) Commands, responses, and channel pro- 
grams 

4) Sample program 

5) Class problem 

3. Bibliography 

A27-2700 Hardware Description of 2 84 8 and 2260 
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B. 226 HARDWARE FOR REMOTE OPERATION 

1. IBM 2848 Display Control 2-V-3 

a. Function - Control unit for 2260 

1) Storage and Control Logic for Interface with: 
Communications Facilities - Data Set 

Instead of Channel Adapter remote 2 84 8 has one of 
two Data Set Adapters (depends on line speed) . 

These adapters are essentially functional entities; 
therefore, have little effect on basic 2848 when 
attached in lieu of Channel Adapter, 

2) Character Generation 

Provides character generation for all characters 
projected on 2260 's CRT. 

3) Buffer Storage 

a) To maintain displays 

b) To store keyboard information 

c) To store printer information for a 1053 Model 
4 printer which can be attached to the 2 848. 

4) Timing and Control Logic for Operations 
Provides timing and control logic for the various 
2260 operation. 

INTRUCTOR'S NOTE ; 

Don't go into any detail on these points since they will be covered 
in more detail under data flow. 

b. Three basic models of 2848 2-V-4 
1) Model 1 

a) Size of display 
6 rows 

40 characters per row 

b) Number of 2260 's 

NOTE ; There are two models of the 22 60, Model 1 
and 2. The only difference is the Type 
of CRT used. 

° Model 2 of 2260 used with Model 1 
of 2848 
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2) 



3) 



Basic Model 1 of 2848 capable of operating two 
Display Adapters each servicing two 2260 's. 

Expansion Capabilities of Model 1 of 2848 

A maximum of twenty- four 2 2 60 's 



Model 2 



a) Size of display 
12 rows 

4 characters per row 

b) Number of 2260 's 

° Model 2 of 2260 's used with Model 2 of 2848. 

° Basic Model 2 of 2848 drives one Display 
adapter which services two 2260 's. 

° Expansion Capabilities of Model 2 of 2848. 

A maximum of sixteen 2 2 6 ' s 

Model 3 



a) 



b) 



Size of display 

12 rows 

80 characters per row 



c. 



Number of 2260 's 

° Model 1 of 2260 's used with Model 3 of 2848 

° Basic Model 3 of 2848 drives one Display 
Adapter which services two 22 60 *s. 

° Expansion Capabilities of Model 3 of 2 848. 

A maximum of eight 2 2 6 ' s 

4) Data Set Adapters common to all basic 2 84 8 Models. 
Choose one of the following: 

a) 9012 Data Set Adapter - 1200 Bits per second for 
remote applications. 

b) 9013 Data Set Adapter - 2400 Bits per second for 
remote applications. 

Optional Features 

1) Printer Feature 

a) Can be used by all keyboard 2260 's associated with 
the 2 84 8 and the System/360. Provides hard copy of 
display information. 

b) IBM 10 53 Model 4 printer which attached to 2 84 8 via 
the Printer Adapter. Adapter provides buffer and 
control for the printer 

c) Can be up to 2000 ft. from 2 848. 
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2) Line Addressing Feature 

Permits Systein/360 to select a particular line on 
the CRT of the 2260 to start displaying information, 

3) Nondestructive Cursor and Nondestructive Cursor 
Adapter 

If the Nodestructive Cursor is attached to a sys- 
tem, all display adapters must be provided with a 
Nondestructive Cursor Adapter. 

d. Operator Controls and Indicators for 2848 2-V-5 

1) Power On switch/indicator 

Turns power on and resets 2848 controls. 

2) Power Off switch 
Removes Power. 

3) Local/Remote switch 

When in Local position the 2848 is logically dis- 
connected from the channel. When in Remote position 
the 2848 is logically connected to the data set. 

4) Data Set Ready Indicator 

Indicates Power On/Off status of associated data 
set. 

IBM 2260 Display Station 

a. Two models of 2260 - only difference in CRT. 

1) Model 1 used with model 3 of 2848. 

Original 2260, Yellow phosphor. Regenerates 30 
times per second. 

2) Model 2 used with model 1 and 2 of 2 848, 
Longer life. Blue-white phosphor. Regenerates 
6 times per second. 

b. Standard Features 

1) Operates without modification with any of the three 
models of 2848. 

2) Anti-reflective display screen -- Minimizes glare. 

3) Brightness Control — Operation can adjust intensity 

4) Adjustable Character size. 

Permits height and width of characters displayed to 
be adjusted to individual requirements. 
Must be made by CE. 
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5) Adjustable character spacing. 

Permits adjusting of spaces between characters. 
Must be made by CE. 

6) Total of 64 characters can 2-V-6, 2-V-7 
be displayed on 2260, 

2 6 alphabetic characters 
10 numerical characters 

25 special symbols 
3 control symbols 

NOTE: Character is 5 by 7 dot matrix. 

c. Optional features 

1) Alphanumeric Keyboard (4 766) 2-V-8 

26 alphabetic characters 
10 numerical characters 
Special symbol keys 
Control keys 

2) Numeric Keyboard (4767) 2~V-9 
10 numerical characters 

Special symbol keys 

Control keys (same as with 4766) 

NOTE: Attachtnent of numeric keyboard does not 
restrict the number of different charac- 
ters that can be displayed on the 2260 
by the System/360. 

d. Operator Controls 

Power On/Off switch and character brightness control. 
Control contained in a single rotary control located on 
the right side of each 2260. 

e. Control Symbols 2-V-lO, 2-V-ll 

INSTRUCTOR'S NOTE: 

Foil 2-V-ll is provided so instructor can show pictorially use of 
keys and control symbols. 

1) Cursor - two types (hardware inserted) . 

a) General function of cursor. 

° Visual marker 

° Indicates display position on screen which 
next character entered will occupy and/or 

° Marks end of message. 
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b) Destructive cursor - standard on all models. 

° Appears as heavy horizontal bar ( ■§ ) , 
e.g., J. SMITH m 

° With various keys to be described cursor 
can be removed on the screen. 

° Destructive cursor erases character con- 
tained in position to which cursor is 
advanced. 

c) Nondestructive cursor — optional. 

° Replaces destructive cursor and appears 
as a vertical bar ( | ) below the charac- 
ter line and immediately to the left of 
the next displayable position, e.g. , 
J. SMIT| 

° Can be moved about the screen with 
various keys. 

° Since the cursor does not occupy a dis- 
playable position, it can be moved free- 
ly about the screen without erasing other 
characters. 

NOTE: Destructive cursor will still appear 
on screen as End of Message symbol. 
Covered under use of Enter Key. 

2) Start Manual Input (Start MI) Symbol 

a) Appears as ^ on screen to indicate start of 
data to be transferred to the channel, e.g.. 
Assume at top of screen ^ J. SMITH 

NOTE: When sent from S/36 it provides a 
means of telling operator where to 
key in data. 

b) Entered by Start Key or sent from System/360. 

3) New Line (NL) Symbol 

a) Appears as a 1^ on the screen. 

b) Prohibits the transfer of all data displayed 
between the NL Symbol and the end of the dis- 
play line e.g.. Assume. 

J. SMITHS NAME 

555555 k MAN NO 

c) Can be employed going to or from 2 2 60. 
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4) Check Symbol 

a) Appears as a B on the screen. 

b) Used to indicate detection of a parity error 
in transfer of data from the System/360. 
Check symbol is displayed in place of the 
character in error, e.g., J. SHBTH 

f. Control Keys 

1) Basic considerations 

a) On keys witli 2 functions, that function below 
line is performed when shift key not depressed 
Function abqve line is performed when shift 
key depressed at same time is control key. 

b) Whenever destructive cursor is moved into a 
p)Osition wh^re a character is displayed, that 
character i^ erased. With nondestructive 
cursor the character is not changed. 

c) When key with only upper case function is de- 
pressed without depressing shift, a check sym- 
bol is entered into the cursor position. 

2) Space/Erase 
Advance 

a) Destructive Cursor 

° No Shift (i.e.. Advance) 

Blank in position of cursor 
Advance cursor to next display position. 
If end of line goes to start of next, 
e.g.. Before: ABbiC 
After: ABbb 

° Shift (i.e., Space/Erase) 
Same as no shift 

b) Nondestructive Cursor 

° No shilt 

Advances cursor one display position. 
No modification of display, e.g. 
Before:! AB|C 
After: ABC. 

° Shift ; 

Erase Ei)Osition to right of cursor. 
Advance cursor one display position, e.g. , 
Before:! ABC|D 
After: ABC- 
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3) Backspace 

a) Destructive Cursor 



No Shift 

Back cursor one display position. Erase 
character in that position. If cursor in 
first display position moves to last dis- 
play position, e,g.. Before: AB«i 

After: A^ 

Shift 

Same as no shift 



b) Nondestructive Cursor 



° No Shift 

Backspace cursor one position. No erasure 
If in first position goes to last display 
position, e,g.. Before: AB- 

After: AbJ 

° Shift 

Same as no shift. 

4) Erase Display 

a) Destructive Cursor 

° Shift 

Erase entire display 

Keyboard restored 

Locates cursor in upper left hand corner 

of display (first displayable position) 

b) Nondestructive Cursor 
Same as destructive cursor 

5) Start 
Up 

a) Destructive Cursor 

° No Shift 

Blank in position of cursor 
Cursor moves one display position 
e.g.. Before: AB«i 
After: AB« 

° Shift 

If no Start MI symbol displayed, Start 
MI Symbol placed in position of cursor 
and cursor advanced one position, 
e.g., Before: NMlE»i 
After: NAT-IE ►« 
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If start MI Symbol displayed, all dis- 
played data between Start MI Symbol and 
Cursor, except data to right of a new 
line chp.racter, is erased. Cursor moves 
to first display position following 
Start MI Symbol. 

e.g.. Before: ^ J.SMITHk NAME 

55ai 
Atter:^«i k NAME 

NOTE: This provides a good way to erase bad data 
which has befen entered from the keyboard. 

b) Nondestructive Cursor 

° No Shift 

Moves cursor up one line on display. If 
at top line goes to last, lateral pos- 
ition remains the same. 

NOTE: Useful to move cursor rapidly for corrections. 

° Shift 

Same as shift with destructive cursor. 

6) Enter 

a) Destructive Cursor 

° Shift 

All data between the Start MI symbol and 
cursor ;(EOM in this case) transferred to 
computeir (when computer issues read) , 
except data between NL symbol and the end 
of line. 

After successful transfer Start MI symbol 

is deleted. Cursor remains in its pre- 
vious position. e.g.. 

Before p J. SMITHS NAME 

55555SJ« MAN NO. 

After J. SMITH J NAME 

555555^« MAN NO. 

read into computer 

b) Nondestructive Cursor 

° Shift 

EOM symbol (■■) placed in; cursor position, 
Cursor hot advanced. 

From that point proceeds same as destruc- 
tive cursor. 
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7) Print - Used with print feature. 

a) Destructive Cursor 

° Shift 

All data between first display position 
in first line and cursor, except data to 
right of NL symbols, printed. 

If no print feature, blank in cursor 
position and move cursor one position. 

NOTE: In this case Start MI symbol not required, 

b) Nondestructive Cursor 

° Shift 

Same as destructive cursor except prior 
to data transfer an EOM ( ■§ ) is placed 
in cursor position. 

8) New Line 
Down 

a) Destructive Cursor 



b) 



NOTE 



° No Shift 

Blank in cursor position 

Cursor moves to next display position 

° Shift 

Place NL symbol in cursor position. 
Cursor moves to first display position of 
next lower line. If already at bottom 
goes to top. 

Data between NL symbol and end of line 

left undisturbed. 

e.g. Before: J. SMITH «i NAME 

After: m J. SMITHS NAME 

Nondestructive Cursor 

° No Shift 

Cursor moves down one line 
Lateral position maintained 

Useful for corrections 

° Shift 

Same as destructive cursor. 
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9) Single - Character Keys 

a) D€istructive Cursor 

° No Shift 

Symbol displayed 

Cursor moved to next display position 

° Shift 

Puts Check symbol in cursor position 
Cursor naoves to next position 

b) Nondestructive Cursor 

Same as destructive cursor. 

10) Double-Character Keys 

a) Deistructive Cursor 

° No Shift 

Lower half character displayed 
Cursor moved to next display position 

° Shift 

Upper half character displayed 
Cursor moved to next display position 

b) Nondestructive Cursor 
Same as destructive cursor. 

Example of Keyboard Operations 

1) Manual Input to be read by System/360. 

a) Position cursor where message is to start. 

b) Press shift key and depress Start key to enter 
MI symbol. 

c) Key in message. 

d) After keying in and verifying message press 
shift key and Enter key. All keys locked 
except Erase. Signals message is ready to be 
read. 

e) If message successful Start MI symbol deleted 
and keyboard restored. If error Start MI 
symbol remains and keyboard locked. Erase 
will restore. 
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C. ASCII LINE CONTROL 

1. Requirements 

a. Must be able to utilize the communications facilities 
for controlling the remote system and at the same time 
maintain line discipline. 

b. Since multi-drop environment, must be able to address a 
particular 2848. 

c. Once contacting a particular 2848 must be able to spec- 
ify a particular 2260. 

d. Once contacting specific 2260 must be able to give it 
a command, e.g., read or write. 

2. Start-Stop line control. 2-V-12 

INSTRUCTOR'S NOTE: 

It is suggested that these characters only be mentioned at this 
point and written on board for reference. Once written on board 
will use list to compare with 1050 start-stop control characters, 
e.g., (c) , (d) , (n) , @, (b) , etc. The foil could be used if de- 
sired. 

a. Six ASCII communication control characters. 

1) STX - Start of Text. 

Preceedes a sequence of characters that is treated 
as an entity concluded with an ETX. 

2) ETX - End of Text 

Terminates a sequence of characters started with 
STX. 

3) ACK - Acknowledge 

Affirmative response from receiver to sender. 

4) NAK - Negative Acknowledge 

Negative response from receiver to sender. 

5) SOH - Start of Heading 

Used at beginning of a sequence of characters which 
constitute a machine-sensible address. 

6) EOT - End of Transmission 

Indicates conclusion of a transmission. 
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b. Two additional characters used for control purposes. 

1) An ASC II contrOjL character 
CAN - Cancel 

Sent by 2848 following text and before ETX if data 
in text is in error. This error would have been 
detected by 2848 as it is read from the display 
buffer. 

2) An ASC II format effector. 
LF ~ Line Freed [(New line) 

Included as only part of the text. Causes New Line 
symbol to be displayed on 2260 and cursor moved to 
first display position of next line. 

LF received by channel indicates following byte is 
first character of next 2260 display line. 

c. Modes of operation 

1) Remote 2 84 8 operates in one of two modes: 

a) Control mode 

State of 2848 prior to receiving addressing 
or control data. Control mode established by 
SOH, EOT, and ETX control characters. 

b) Text Mode 

State of 2848 when receiving or transmitting 
text data. This mode is established only upon 
ireceipt of a STX control character. 

NOTE: In multi-drop environment only one 2 84 8 can 
be in text mode at a given time. 

d. Control Status - At any time 2 84 8 can be in one of the 
following statuses or a combination of them. 

1) Non-Selected Status 

The status the 2048 must be in prior to it being 
addressed by a command from the S/36 0. Established 
by SOH or EOT. 

In other words a 2848 not indicated by an address- 
ing sequence. 

NOTE: Addressing sequence will be discussed short- 
ly. It is a four byte sequence which is sent 
by the S/360 to the remote 2 848 instructing 
it to perform some command. 
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2) Select Status 

Once a remote 2 84 8 is instructed to perform some 
operation, i.e., to receive or transmit data other 
than an addressing sequence or control data, it is 
in select status. In a multi-drop environment only 
one 2848 can be in select status. 

3) Transmit Status 

Once the 2848 has been instructed to transmit some- 
thing other than ACK, NAK, or EOT it is considered 
to be in transmit status. It must also be in 
select status. 

4) Receive Status 

A 2848 not in transmit status is in receive . status . 
Can also be in non-selected or selected status. 

Addressing Sequence 

a. Each command from the channel to the 2 84 8 starts with 
a 4 byte Addressing Sequence. 

1) 1st byte 

a) Must be SOH or EOT 

b) Establishes control mode 

c) Puts 2848 in non-select status. 

2) 2nd byte 

a) Contains address of 2848. 

b) 96 possible addresses. 

3) 3rd byte 

a) Contains address of the device 

b) Addresses assigned in consecutive order with 
1053 having highest position. 

4) 4th byte 

a) Command to be executed by the selected 2 848, 
2260 or 1053. 

Similarity with other start-stop line control, i.e., (c) , (5) , 

a. The other line control is used for a different trans- 
mission code, i.e., 6 bit characters. 
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b. Transmission to the 2848 is via 7 bit ASC II code. 



c. Nevertheless the follov/ing comparisons can be made: 
ASC II (2260-2848) 6 bit BCD 

© 
© 



ETX, 


530H, EOT 


STX 




ACK 




NAK 




ETX 




NOTE: 


In the 1, 



In the last case (b) does not establish con- 
trol mode whereas the ETX does. In 2260-2848 
operation the message will be a maximum of one 
display station buffer of information. There- 
fore, this buffer is read or written with one 
block of data (message) . 

d. Addressing similarities 

ASC II (2260-2848) 6 bit BCD 

EOT © 

2848 address Station address 

2 26 address Device address 

Command 

Note that the main difference here is the line control 
for the transmission of 6 bit characters does not in- 
clude a command. The 2 84 8 receives a command to tell 
it what operation to perform. 

D. DATA FLOW, ASSOCIATED HARDWARE, AND CODE SETS 

1. Between 2848 and 2701 Transmission Control Unit 

a. One of two data sets required 

1) 202D or equivalent for transmission at 1200 baud 

2) 201B or equivalent for transmission at 2400 baud 

3) Half-duplex operation over four wire leased line 
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b. Transfer of data between 2701 and remote 2848 is in 
ASC II code (American Standard Code for Information 
Interchange) . 2-V-13 

1) 7 bit code 

a) 128 possible characters 

b) 71 and for data interchange 

2) On communications line the 7 bits are accompanied 
by Start, VRC, and Stop bits, i.e., a 10 bit for 
mat 

2. Between S/360 Channel and 2701 

a. Transfer of data between S/360 channel and 2701 must be 
in an 8 bit code. Therefore, 

1) 2701 provides translation between 7 bit ASC II code 
and a modified 8 bit version of ASC II (ASC II-8) 

2) The ASC II - 8 code is formed by adding an x-bit 
between bits 5 and 6, i.e., 76 x 54321. This x-bit 
is the same as bit 7, e.g. 

ASC II - 8 for A is 1010 0001 
ASC II for A is 1000001 

NOTE: In references foil the characters 2-V-14 
within the dotted line are ASCII-8 
codes for lower case of alphabetic 
characters. These codes are con- 
verted to upper case by the 2 84 8 if 
received during a write operation. 
End of message (*i) displayed as 
exclamation mark (I) on 1053 printer. 
Check symbol (■) displayed as quote 
(") on 1053 printer. Start MI (►) 
displayed as cent sign (<:) op. 1053 
printer. New line symbol (Ik) causes 
a carriage return and line feed on 
1053 printer. 

b. The 2701 requires a Type III Terminal adapter for the 
remote 2260-2848. Maximum of two Type III Adapter per 
2701. 

3. Remote 2 84 8 

NOTE: Reference back to 2-V-3 to indicate sections to be 
discussed. 
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a. Data Set Adapter of 2848 interfaces with data set. 

1) Data Set Adapter 9011 interfaces with 202D or 
equivalent 

2) Data Set Adapter 9012 interfaces with 201B or 
equivalent 

b. 2848 Data Set Adapter 2-V-15 

1) Write to 2 84 8 

a) Data received; from communications facilities 
bit serially in serializer - deserializer 
register (SERINES register) 

b) Once complete . character formed in SERDES, the 
7 data bits and parity transferred to char- 
acter register 

c) Outputs of character register sampled at ASCII 
decoder to determine if control character in- 
dicating start of message (SOH or EOT) 

d) If SOH or EOT I detected, next two bytes con- 
taining 2848 address and 2260 address are de- 
coded to determine if for this 2848 and, if 
so, which is 2260. 

e) Fourth byte routed to command decoder to de- 
termine operation to be performed. ACK re- 
sponse sent tcb channel. 

f) Data is then deceived in SERDES and transferred 
to character register. Only text bytes used 

to update LRC i accumulator . 

g) Text bytes comverted to 6 bit 2848 code (BCD) 
and transferred to serializer and into delay 
line buffer. 

h) Data extracteci from delay line deserialized 
and sent to common buffer in common control 
section of display control to be stored and 
displayed. 

2) Read 2 84 8 

a) Data transferrjed to common buffer register to 
sejrializer in j 7 bit ASCII code and into delay 
line buffer, i 

b) Almost immediately data extracted and loaded 
into output register and then to the character 
register. 
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c) Parity (VRC) is assigned and LRC updated. 

d) Character transferred to SERDES register 
where start and stop bits are picked up prior 
to its transfer to communications facility. 

Coiranon control 2-V-16 

1) Common buffer (7 bit register) acts as central 
point for data transfers between: 

a) Data Set Adapter and 2260 buffer storage. 

b) Data Set Adapter and printer buffer. 

c) 2260 keyboard and 2260 buffer storage. 

d) 2260 buffer storage and printer buffer. 

2) Character generator and code translator 

a) Consists of 64 core storage matrices, one for 
each of the 6 4 displayable characters. 

b) Primary Function 

Converts 6 bit BCD characters to 5 seven bit 
video bytes. 

Convert video bytes to 6 bit BCD characters. 

c) Other coding functions include converting: 

Six-bit BCD code to 1053. 

Tilt-and-Rotate code. 

Six-bit BCD code to 7 bit ASCII code. 

NOTE: The Common Buffer and Character Generator 
are part of the main control portion of 
the 2 848 sometimes referred to as common 
control. Some of the other functions per- 
formed by this section are: 

Checks for control characters (Start MI, NL, 
EOM) 

Serializes data for writing into display 
buffers (delay lines) 

Assigns parity to data stored in display buffers 
Checks parity data coming from display buffers. 
Decodes address to select 2260. 
Determines keyboard priority when more than 
one requires common controls. 
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Decodes keyboard commands. 

Deserializes; data, i.e., data received from 
delay lines is bit serially and must be as- 
sembled into bytes. 

3) Display Adapter 

a) Contains del^.y line buffer storage and control 
logic to service 2260*s, e.g., read data from 
delay lines or write data into delay lines. 

NOTE: These delay line buffers will be referred 
to as display station buffers. 

b) Receives bitfe serially from common buffer. 
Continuously displayed and regenerated until 
erased or replaced. 

NOTE: Position of bits in line determine portion 

of screen where cathode-ray beam will be in- 
tensified to cause dot. 

Character is a group of dots. 

c) Data stored in delay line can be read by com- 
puter. 

4) Common Bus and MI Control 

a) Accepts data and commands (e.g. Erase, Enter) 
generated from 2260 keyboard. 

Data sent to common buffer. 
Commands directed to control areas. 

5) Printer Adapter 

a) Buffers data; to be printed. Converted to tilt- 
rotate prior to entry in buffer. 

b) Controls print operation. 

E. COMMANDS, SEQUENCES AND RESPONSES, AND CHANNEL PROGRAMS 
1, Sequences and Responses. 

a. Once the command is giVen to the 2 84 8 in the addressing 
sequence it is necessajry for the S/36 to control and 
monitor the operation Joy exchanges between the channel 
and remote 2848. These exchanges are called sequences 
and responses and are performed by the channel programs. 

b. These sequences and responses will vary from application 
to application. 
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2. Eight coininands can be executed. 

NOTE: The following paragraphs discuss various commands, responses 
and sequences, and the channel programs necessary to perform 
the various. Only the more likely sequences are covered. 
Foils 2-V-27 to 2-V-30 are provided for references concerning 
other possible sequences for some of the more common opera- 
tions. Some operations show SOH being utilized. BTAM does 
not use this character since in effect it is the same as the 
EOT. 

The commands to the remote 2 848 perform the same operations 
as the commands for local operation. 



a. Specific Poll to a 2260 Display Station 
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1) Purpose 

Tests for presence of manually entered message 
awaiting transfer to channel. Causes message to 
be transferred to S/360. 

NOTE: Message ready for transfer if Enter Key has been 
depressed and Start symbol is displayed. 

2) Operation 

Data from Start symbol to cursor, excluding that 
between an NL symbol and the end of th€i line, trans- 
ferred, 

3) Sequence and Response and Channel Progirams 

NOTE: TABLE in channel programs reference Device I/O module. 
TRMLST in channel programs reference tesrminal lists 
defined by user's DFTRMLST macro. 

CD and CC refer to data chaining and command chain- 
ing. Whenever CD or CC is specified there will be 
no interrupt as long as the operation esnds normally, 
i.e., no Unit Check or Unit Exception occurs. 

a) Read Initial - performs following 

° Sends addressing sequence to remote, i.e., 
EOT ' s to establish control mode, Terminal 
(2848) and Device (2260) addresses^ Command 
for 2 848 to execute. 

NOTE: 2260 addresses depicted in foil 2-V-18, 2-V-19 
2-V-18 are typical and may vary from installation 
to installation. Check with CE . 2848 addresses also 
vary. 

° If 2260 has message, it is sesnt (STX es- 
tablishes text mode) and read into core 
buffer. First Read reads only 2 characters 
but chains to second Read which completes 
filling of buffer. 



4.2.22 



NOTE: If no Start symbol would not receive text, only 
STX, ETX, and LRC: 

If CAN is generated, it indicates error detected 
in reading displaj^ buffer. Will cause CE, DE, 
and UC with Equipment 
Check in sense byte, 

° If 2260 hasni't a message (i.e.. Enter key has- 
n't been depressed), will receive EOT causing 
CE, DE, and bE . In this case first read would 
not chain to^ second read. 

° If no response will cause time out resulting 
in Channel Eiid, Device End, Unit Check, and 
Time Out in sense byte. 

NOTE: No response can be caused by: 

° Illegal command 

° Illegal 2848: address 

° Illegal 2260; address or printer address 

° Parity errorl in addressing sequence 

° Parity errori in line control character 

° Defective communication facility 

b) Channel replies 

° Read Repeat 

If transmission in error user would issue Read 
TP to send nKk and cause 2 84 8 to retransmit 
message. 

° Write Positive Acknowledgement 

Transmits STpC and EOT ' s to 2848 to indicate 
good transmission and put system back into 
control model. 

Read Initial with reset would have added a 
6th step to the Read Initial channel program 
which would have done the same thing. 

° Other possible replies but less likely to be 
used would be: 

Read Cobtinues which would send ACK and 

ask 2848 for next block 
from the 2260. However, 
2260 could not be expect- 
ed to have another block 
yet and 2 84 8 would send 
EOT ' s . 

Write Negative Acknowledgement 

Indicates bad transmis- 
sion but doesn't ask for 
retransmission. 
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b. Specific Poll to the 1053 Printer 2-V-20 

1) Purpose 

Causes 2848 to test readiness and busy 
status of printer 

2) Sequence and Response 

a) Read Initial 

Basically operation is same as poll 
of specific 2260. However, if 
printer is available message received 
will only be printer address. Print- 
er is reserved at remote site until 
channel responds with message. 

NOTE: Command is same but address of 

device indicates printer is being 
polled. 

If printer not ready will receive NAK 
from 28 48 which sets printer request 
in control unit. 

If printer busy receive EOT and 
printer request set. 

NOTE: Printer request indicates the 
channel has a message for the 
printer when it becomes available. 

b) Write Continue 

If the printer is available, the user 
would respond at this point with a 
Write Continue to transmit the 
message. 

The channel will then read the 
response into an area of the DECB, 

c) Write Negative Acknowledgement 

If the message was received correctly 
and there is no more to print, the 
user would want to put the system 
back into control mode. This could 
have been done with a Write Continue 
with reset or by issuing a Write 
Negative Acknowledgement macro. 

NOTE: Write Negative Acknowledgement 
does not have to mean message 
was received incorrectly. Can be 
used to put system back into con- 
trol mode in some cases. 

If the message was received in error, 
the Write Continue could be re- 
issued. 
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1:0 there is another block to send, 
aniother Write Continue could be 
igsued. 



c. 



General Poll 
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1) Operation 

a) Causes 2848 to test each 2260 for 

presence of manually entered message 
pending transfer. 



b) If printer attached determines Print- 
er Request status to see if printer 
has been requested previously. 

c) 2848 checks printer first and then 
Enter key circuit of each 2260. 

2) Sequende and Response 
a) Rejad Initial 

Baisically same as other Read Initials 
Except device address is a hex FF. 

If printer request set will receive 
Sllx, device address, and ETX but no 
text. 

If printer has not been requested 
ahd 2260 has something to send, will 
rejceive the text, i.e., all data 
between Start symbol and EOM. 



If no message receive EOT. 
Nci response - time out 

b) write Continue 

If message from printer would issue 
Wriite Continue to send message to 
printer. 

c) Reiad Continue 

Once a Read Initial using a general 
pqll is initiated, the general poll 
continues to remain in effect until 
all buffers have been checked or un- 
til the channel issues an STX or EOT, 
e.g., STX is issued when writing the 
printer. 

The user can keep reading stations 
by issuing a Read Continue. When 
no more stations have messages or 
the last one has been checked, the 
2 848 sends an EOT which terminates 
the operation. 
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d) Other responses 

Read Repeat - if message is received 
in error a Read TP can 
be issued to cause re- 
transmission of message. 

Reset - at any point in time Read 

Initial or Read Continue 
can be issued with reset 
to terminate the operation 

The same effect can be 
obtained by issuing a 
Write Positive Acknow- 
ledgement. 

d. Read Full DS Buffer 2-V-22 

1) Read Buffer 

Mostly for special purpose, e.g. , diag- 
nostics . 

All data in 2260 buffer transferred to 
channel. 

2) Reset 

Would follow up with Write Positive Ac- 
knowledgement or could have used reset on 
the Read Buffer. 

e. Write Addressed DS or 1053 2-V-23 

1) Operation 

To transfer data from channel for display 
on selected 2260 screen. 

2) Sequences and Responses 

a) Write Initial 

° Addressing sequence to remote, 
i.e., EOT's, Terminal and Device 
addresses, and Write command. 

° Response read into area in DECB. 

ACK - printer or 2260 ready to 

receive . 

Time out - remote not on 

NAK or EOT - indicate printer not 
ready or busy. Printer 
request would be set. 
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° On receiving ACK channel sends 
message preceded by STX 

° Remote responds with ACK if re- 
ceived correctly. 

NAK would indicate Data Check EOT 
would indicate loss data. 

b) Write Negative Aknowledgement 
Orice the remote has received the 
m0ssage correctly the channel in 
mbst cases will send an EOT to put 
system back into control mode. The 
226 would not be ready to receive 
another block. The Write Initial 
could have been issued with reset to 
achieve the same result. 

c) Write Continue 

Only the printer would be ready to 
receive a second block and that could 
be done with a Write Continue. Even- 
tiially a Write TN or Write with 
r0set would be issued. 

Note: With 1053 could have 2848 indicate 
buffer overrun. Printer buffer 
Holds 1223 characters. If this is 
exceeded, a buffer overrun condition 
Occurs and print operation is ter- 
itiinated. 



f. Erase/Write and Line Address Write 



1) 



Operation 



a) Ei:[ase/Write 

Esjsentially an Erase command combined 
with a Write. Screen is erased and 
mdssage is written starting in first 
position of buffer. 

b) Write DS Line Address 

Permits selection of a particular 
lijne as beginning of message. 



2) Sequenqes and Responses 2-V-2 3 

a) Write Erase 

Sequence of commands same as Write 
Iriitial. Only difference is Command 
sent to remote will cause erase and 
then write. 

Since this is only applicable with 
2260 will issue Write with reset or 
follow up with Write Negative Acknow- 
ledgement. 
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b. Write at Line Address 

Sequence of commands same as Write 
Initial. Only difference; is Command 
sent to remote will causes write to 
start at a particular line. 
In text itself the first 2-V-24 
character will be the line at which 
to start. 

3. Effect of Dynamic Buffering 

a. Each read and write CCW causes a PCI 
(Program controlled interrupt) . 

b. The PCI appendage receivers control 
and sets up buffer addresses and al- 
ters existing CCW's. 

NOTE: Normally the PCI occurs within one 

character time after CCV7 is fetched. 
In this manner, while the rest of 
the buffer is filling or emptying 
there is time to set up the CCW's 
for the next buffer. However, 
since the time of this interrupt is 
still somewhat unpredictable and the 
amount of data being trcinsferred 
may be small, precautions are taken 
in case the next buffer is not set 
up in time. 

c. A chain of 4 CCW's perfoirm the read 
and write. 

1) Read 2-V-25 
Two read commands in loop are 
followed by read with PCI and 
SKIP flags on. If PCI fails to 
occur in time, read skip is per- 
formed to read data from line 
but not into memory.. At ter- 
mination retransmission is 
requested. 

2) Write 2-V-26 
Preceding condition easier to 
handle for write. Invalid TIC 
is issued causing parogram check 
which causes abnormcil channel 
end appendage to be entered. 
Abnormal channel end then gets 
next buffer address and restarts 
on next write command. 
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d. This sequence of dCW s would replace the CCW indi- 
cated in the previously described channel programs 
which reads or writes the message into or out of an 
INAREA and OUTAREA. 

F. PROGRAMMING CONS IDERJi^T IONS AND SAMPLE PROGRAM 

INSTRUCTOR'S NOTE: 

The following discussion relates to the programming example included 
in the appendix. This program doesn't cover all possibilities but 
does provide a basis for various programming considerations, 

1. Purpose of Program 

a. Rem.ote 2260 's or remote 1050 

1) Ccin be operated with two remote 2260 's 
on the same communication line. 

a) Line 1 

b) 2848 control unit with ASCII address 
of hex. AO 

c) 2260 's with ASCII addresses of hex. 
AO and Al 

2) Ccin be operated with 1 remote 1050 

a) Line 1 

b) Nonswitched 

c) 1050 with 1050 coded address of hex. 
6 2 (A) 

d) Write to printer with 10 50 coded 
address of hex. 02 (1) 

e) Read from keyboard with 1050 coded 
address of hex. OB (5) 

NOTE;: Program will not operate both lines 
at once. User will specify from 
console ; typewriter on System/360 
which device (s) are on the system. 
The console message will state: 

"CHOOSE 1-2260 2-1050 3-BOTH" 
Third choice is for expansion. 

Reply: REPLY 0, '1' or REPLY 0, '2' 
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b. Gives three choices of operation to user on 
terminal 

1) By entering a 1 he can display a file in 
core called COREFILE. 

2) By entering a 2 followed by a message he 
can change the data in COREFILE. A new 
opening message will be sent to the ter- 
minal once the new message is received. 

3) By entering a 3 he can terminate the job. 

NOTE: On the 2260, the user will enter a 
START MI symbol followed immediate- 
ly by the number selected. ENTER 
key is then depressed. 

When using the 2260 if the user 
requests a display of C031EFILE, he 
must terminate the display be enter- 
ing START MI and the number 4. A 
new opening message will then be re- 
turned. On the 1050, the user will 
enter the selected number immediate- 
ly following the opening message. 
The whole message should be entered 
before depressing the EOB key. The 
user should not enter an EOT. 

The user when entering a new message 
into COREFILE should follow each 
carriage return with at least 3 
blanks. In this way, when the user 
requests display of this message it 
should type out properly ;, i.e., allow 
for time on carriage return on 1050 

2. Programming Considerations 

a. Job Control Language (JCL) 

1) The JCL will vary depending on the proc€Jdures employ- 
ed by the installation. 

2) TELCMLIB contains certain BTAM routines <- therefore, 
at Link Edit time, the user must on the //SYSLIB DD 
card specify DSNAME=SYS1. TELCMLIB. 

3) DD cards for units 

Be sure at execute time to include the DD cards 
specifying the line(s) for the line group (s). In 
the DCB the program specifies DSNAME=DS2 26 . 
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b. Special Considerations 

This program was written and checked out on a pre-release 
system of OS release 11. At that time, two compensations 
had to be made for problems in BTAM OPEN and TRNSLATE 
macros. 

1) BUFL is stored by program in DCB. User need only 
specify this parameter in DCB at assembly time. 

2) The user should not enter a block of data exceed- 
ing 256 bytes, because the TRNSLATE macro will only 
translate blocks of less than 256 bytes. 



NOTE: At the time this outline was written APAR's 
exist for both of these problems. 

c. Dummy Section (DSECT) 

DSECT's available for both DCB and DECB. This provides 
a simplified method for the user to address fields in the 
DCB and DECB. The address of the DCB and DECB is desig- 
nated in USING statements. Whenever one of the fields in 
the DSECT's are references, the base register will be 
the DECB or DCB address and the displacement will be 
that indicated by the DSECT. The user is responsible for 
loading the base register with the proper address prior 
to referencing one of the fields in the DSECT. 

d. Buffer Pool 

1) For read's 

The sample program has utilized GETMAIN followed 
by BUILD to construct a buffer pool. Note the pro- 
gram stores the ac^dress of the pool in the DCB. 
If other DCB ' s and line groups existed, the buffer 
pool address should also be stored in those DCB ' s . 
In this manner, the pool can be shared. 

On read's dynamic buffering is valuable since the 
data blocks received from the remote 2260 's may 
vary from 1 to 9 60 characters. Frequently the 
blocks transferred will be short. However, the pro- 
gram must be able to handle the larger blocks when 
they are entered. 

2) For WRITE 's 

All WRITE 's in this program are of areas in core, 
i.e., COREFILE and opening message. However, these 
areas will still be treated by BTAM routines as 
dynamic buffers since that is specified by the DCB. 
Therefore, care milist be taken to assure they look 
like dynamic buffers to WRITE and TRNSLATE macros by 
placing O's in the first word where link address 
would be found. 
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Also, be sure to start buffers on a full word 
boundary. 

Be sure the buffer counts include 4 bytes which must 
must be set aside for the link address. 

e. Addressing and Polling Lists 

1) Addressing List 

This program has an address list for ecich terminal, 
including the printer although it is not used at 
this time. 

2) Polling Lists 

a) For 2260's 

For the 2260 's, the polling list indicates a 
general poll which will permit acceptance of 
message from any station requesting service. 

b) For 1050 

For the 1050, the keyboard is polled. 

f. READ'S and WRITE 's 

1) read's 

READ Initial is employed to read messages from the 
remote terminals. For area and length operands 'S' 
parameter is indicated. Therefore, length and area 
will be obtained from BUFCB and DCB. Since dynamic 
buffering is indicated, the data will fill as many 48 
character buffers as required to contain the message. 

Could have READ Initial with reset or use WRITE 
Positive Acknowledgement to return positive response 
and deselect characters on a good transmission. 

The sample program chose the latter. Also a READ 
Continue would have issued a positive response and 
read the next message if the other 2260 required 
servicing. However, in this program the writer did 
not wish to receive a message from another 2260 
before the previous one was processed. 

2) WRITE 's 

All WRITE 's were of data from areas assembled in the 
user's program. Therefore, did not have to request 
buffers. However, since dynamic buffering was 
specified in DCB, must be careful to have output 
areas adhere to dynamic buffering formats. 

Counts and area locations are furnished in the Writes 
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Note that with the 2260, the WRITE Erase is used 
since one normallj^ wishes to erase the screen and 
position the cursor prior to writing out a message. 
The write also indicates reset to deselect the ter- 
minal. This should not be necessary since the next 
instruction will be a READ Initial which also trans- 
mits deselect characters. In fact, the WRITE 
Initial for the 1050 in this program does not use 
reset, 

g. Sequence of I/O Operations 

The sequence of I/O operations, e.g., when to use READ 
Continue after READ Initial, or when to use WRITE Con- 
tinue after WRITE and READ Initial, or when to reset, 
are decisions dependent on the application. The user 
must be constantly aware of the total sequence of trans- 
missions and response which must be made and be sure that 
no terminal is left hanging that will result in time- 
outs or other abnormal completions. Therefore, it is 
highly recoinranended that as the program is written he 
constantly refers to the charts showing the sequence 
of transmission and responses. 

Also the programmer will find constant reference will 
have to be made to the channel programs to be sure just 
which of the required operations each channel program 
is performing. 

h. I/O Return Codes and Completion Codes 

1) Return Codes 

Following READ ' s , WRITE ' s , REQBUF , and RELBUF 
return codes are passed back to the user in register 
15. 

With read's and WRITE ' s these return codes indicate 
whether the I/O operation was started. 

With RELBUF and REQBUF, the codes indicate whether 
the buffers were released or acquired as requested. 

In both cases, it is the user's responsibility to 
be sure that these codes are checked. In the case 
of the sample program, all these codes are indicated, 
but a NOP is used where a branch to some subroutine 
would be required to take some action. In these 
situations the saibple program terminates, following 
a message to the operator. 
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NOTE: When using the technique illustrated in 

the program to get to the proper routine, 
the user must be sure each bramch is 4 bytes 
away from the start of the last. In the 
example the 1st NOP is not 4 bytes beyond 
the start of the BR instruction but in- 
stead 2 bytes beyond. Therefore, a filler 
of 1 half word should be inserted follow- 
ing the BR and before the 1st,. NOP. 

2) Completion codes 

After an I/O Operation is completed the user 
must check the completion code placed in the 
ECB to determine whether it completed normally. 
The user should provide a line analysis routine 
to check completion, e.g., to examine the flags 
in the DECB . 

The sample program indicates the completion 
codes which can be received but does not go 
into a line analysis routine. 

3) Com.pletion codes on dynamic buffering 

When dynamic buffering is employed, completion 
codes are placed in the first character of 
each buffer when it is filled. 

The user can check these individual ECB's for 
each buffer or wait on the primary ECB in the 
DECB. By waiting on the buffers' ECB's, it 
may be possible to save time by processing a 
buffer while another is being filled. However, 
the user must realize that the buffers may be 
processed as filled, but the LRC will not be 
checked until End of Block (ETX) . At this 
time, if LRC ' s do not compare, bad data has 
been processed by processing buffers premature- 
ly. 

i. Polling considerations 
1) What ends polling? 

a) Positive response is received from the 
terminal 

b) An error condition is detected 

c) RESETPL macro 

d) End of an open list reached 

NOTE: With wrap list polling starts again 
at beginning of list. 
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2) Operation posted complete when error, RESETPL, end 
of OPENLST or transmission is completed. 

3) Must issue another READ Initial to restart polling. 

4) General Poll for 2260 

Essentially this works in the same manner as poll- 
ing f oi: other terminals , except that one need not 
have an entry in the list for each 2260. The pre- 
sence of a general poll will result in accepting 
a messcige from any 2260 which requests service. 

A wrap list is still employed, which simply says 
the 2848 will continue to check all 2260 's until 
one recjuests service. 

j . Translate 

1) Following READ Initial 

In the sample program once the READ Initial is 
completed all the buffers containing the input are 
translated. 

The length parameter is passed in LNGTHREG to the 
TRNSLATE macro. In this case a length of is used 
to indicate dynamic buffering. 

Since dynamic buffering is used, the macro will pro- 
ceed through all buffers using the link address. 
Translcition stops when the TRNSLATE finds O's in 
the link address of a buffer. 

2) Translcites preceding WRITE Initial's 

In all these cases the data is being transmitted out 
of a buffer specified at assembly. However, the 
TRNSLATE macro checks the DCB to see if dynamic 
buffering is employed. Since it is, the output 
buffers must also have a link address as the first 
4 bytes. Therefore, the sample program is careful 
to include a full word of O's at the start of each 
of these buffers. 

k. Terminal Table 

The SRL for BTAM makes reference to user terminal tables. 
In an application with a number of lines, the user will 
find it useful to have a table to contain information 
concerning each of the lines, e.g., 

° To indicate which terminals are on line, i.e., 

terminal status. 
° Pointers to various addressing lists for the 

termincils 
° Any other control information the user wishes to 

keep on a line and its terminals 
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1. ERROPT in DCB 

The sample program shows ERROPT=ERWC. In this program 
the R and W are meaningless since text errors on read's 
and write 's will not be retired when dynamic buffering 
is employed. 
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G. CLASS PROBLEM 



Problem 1 



Your company is installing a TP system with a single line 
with a 2260. 

Read a message not to exceed 48 characters from the 2260 into 
a core buffer 48 characters in length. 

Let BTAM supply buffers at OPEN. 

Translate message to EBCDIC. 

Translate message back to ASCII code. 

Send message back to 2260. 

Use ERP and LERB. 

Check for normal return codes and completion codes, but do not 
get involved with error analysis. 



Problem 2 



Your company has order a second 2260. In addition you find 
the message blocks will vary from 1 to 960 characters in 
length. 

Still utilizing 48 character buffers, modify your program to 
handle message blocks up to 960 characters in length. 

Also include on-line terminal test in your system. 

Expand your program to read a message from one 2 260 and 
send it out to the other 2 260. 
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1 



1 




1 

1 
1 


1 
1 
1 



1 
1 
1 
1 


\il ^ 


DO ^ 


B5 ► 


B4 B3 B2 Bl 


Col 
Row 





1 


2 


3 


4 


5 


6 


7 










SOH 




SP 







P 


@ 


1 1 

JP 1 




1 


1 


— 


1 


A 


Q 


\" 


* 1 

Q 1 




10 


2 


SIX 


■ 


2 


B 


R 


! B 


R 1 




11 


3 


ETX 


# 


3 


C 


S 


1 c 


S 1 




10 


4 


EOT 


$ 


4 


D 


T 


1 ^ 


T 1 




10 1 


5 




NAK 


% 


5 


E 


U 


1 E 


u I 




110 


6 


ACK 




& 


6 


F 


V 


{ F 


V 1 




111 


7 




1 


7 


G 


W 


1 (^ 


w j 




10 


8 


CAN 


( 


8 


H 


X 


1 H 


X 1 




10 1 


9 




) 


9 


1 


Y 


1 1 


Y } 




10 10 


10 


A 


« 


« 


J 


Z 


1 J . 


z i 




10 11 


11 




+ 


; 


K 




1 ^ 1 


1 




110 


12 


t 


< 


L 




1 L 1 


1 




110 1 


13 


- 


= 


M 


► 


1 M 1 






1110 


14 


» 


> 


N 




1 N 1 






1111 


15 


1 


? 





- 


1 ° 1 





2-V-14 



D/S 



N3 
I 
< 

I 



SERDES 
REGISTER 



DATA FLOW FOR DATA SET ADAPTER 




FROM COMMON BUFFER (7 BIT ASC 



7 TO 6 BIT 



} — r 



L 



CODE 
CONVERT 



OP 
DECODER 



VRC 
CHECK 



LRC 
REGISTER 



ADD 
REGISTER 



SERIALIZER 





OUTPUT 
REGISTER 

! 4 



J 




ACCUM. 

FOR 

DATA 



TO DISPLAY CONTROL 



FROM DISPLAY CONTROL 



TO COMMON 



CONTROL 
BUFFER 



DATA FLOW FOR COMMON CONTROL AND ADAPTERS 



DATA SET 
ADAPTER 



< 

o 



PRINTER ADAPTER 




Write 



Common 
Buffer 



n a 



Character 
Generator & 

Code 
Translator 



Read 



COMMON CONTROL 



DISPLAY ADAPTER 



READ 



WRITE 



CONTROL 





Common 
Bus & Ml 
Control 



2260 



2260 



^^ 




SPECIFIC POLL OF 2260 



1. WR 


CHAN. PROG. 
RD TI 

TABLE 

TRMLST 

TABLE 

IMAREA 

INAREA+2 


CD 
CD 
CC 
CD 


DATA FLOW 
S/360 REMOTE 

EOT, EOT, EOT 


2. WR 


2260 ADD , TERM. ADD. 


3.WR 


COMMAND (RD MI) 


4. RD 




STX, 2260 ADD. 


5. RD 


TXT(CAN),ETX,LRC 




V 


1. WR 


RD TP 
TABLE 

INAREA 


CC 


NAK 


2. RD 


^ 


STX , 2260 ADD. TXT, ECT. 




V 


1. WR 


WR TA 
TABLE 




EOT, EOT, EOT, ST X 






y^ 



REMOTE DEVICE ADDRESS ASSIGNMENTS 



ADDRESS BYTE (ASCI I -8) 



DEVICE NUMBER 
(2260 DISPLAY STATION 
OR 
1053MODEL1 PRINTER*) 



X 5 



3 2 



10 10 
10 10 1 



CONTINUED 
SEQUENTIALLY 

10 10 111 
10 110 



CONTINUED 
SEQUENTIALLY 

i 

10 1110 



DEVICE 1 
DEVICE 2 



t 
DEVICE 16 

DEVICE 17 



DEVICE 25 



CX> 



HIGHEST ADD. MUST BE 1053 



2848-2260 REMOTE COMMANDS 



Command 


ASCII "8 Code Structure 


Feature Required 


COMMAND 

Specific Poll -2260 

Specific Poll - Printer 

General Poll* 

Read Addressed Full DS Buffer 

Write 2260 

Write Printer 

Line Address Write 

Erase/Write 


7 6X5432 1 


Keyboard Feature 

Printer Feature 

Keyboard Feature or Printer Feature 

Printer Feature 

Line Addressing Feature 


10 
10 
10 

10 10 

1 1 
10 10 
10 110 
1110 



*3rd. Char, of Add. Seq. All I's. 



I 

< 



vO 



SPECIFIC POLL OF 1053 PRINTER 





1. WR 

2.WR 

3. WR 

4. RD 

5. RD 


CHAN. PROG. 
RD TI 

TABLE 

TRMLST 
TABLE 
INAREA 
INAREA +2 


CD 

CD 
CC 
CD 


>* 


DATA FLOW 
S/360 REMOTE 

EOT, EOT, EOT 




1053 ADD., TERM. ADD. 




" ^ 

COMMAND (RD MI) 




STX , PRNTR. ADD 






EXT.LRC 




^^ 




1. WR 

2. RD 


WR TT 
OUTAREA 

RESPN + 1 


CC 


«■ 


LRC.ETX.TXT.STX 




ACK 






1 
< 

O 


1. WR 


WR TN 
TABLE 




— 


EOT , EOT , EOT 




> 



GENERAL POLL 



1. WR 


CHAN. PROG. 
RD TI 

TABLE 

TRMLST 

TABLE 

INAREA 

INAREA+2 


CD 
CD 

CC 
CD 


^L 


DATA FLOW 
S/360 REMOTE 

EOT, EOT, EOT 


2.WR 


X'FF' , TERM. ADD. 


3.WR 


COMMAND (RD MI) 


4. RD 


STX, DEV. ADD. 


5. RD 




(TXT),(CAN),ETX , LRC 


WR 
1. WR 


TT(IF PRINTER) 
OUTAREA CC 

RESPN + 1 


^» 


LRC,ETX,TXT,STX 


2. RD 


ACK 




^^ 


RD 
1. WR 


TT (IF 2260) 
TABLE 

TMARPA 


CC 


— 


ACK 


9 RH 


QTY HFV Ann TVT Fxr 



READ FULL DS BUFFER 



I 
< 

I 



I. WR 



Z. WR 



3.WR 



4. RD 



CHAN. PROG. 
RD TB 



TABLE 



TRMLST 



TABLE 



INAREA 



CD 



CD 



CC 



DATA 



FLOW 



S/360 



REMOTE 



EOT, EOT , EOT 



2260 ADD, TERM. ADD 



COMMAND (RD. BUFF.) 
STX,2260ADD,TXT,CAN, 



ETX, LRC 





1. WR 

2. WR 

3. WR 

4. RD 

5. WR 

6. WR 
7.RD 


WRITE 

CHAN. PROG. 
WR TI 

TABLE 

TRMLST 

TABLE 

RESPN 

TABLE 

OUTAREA 

RESPN + 1 


DS OF 

CD 
CD 
CC 
CC 
CD 
CC 


? 1053 PRINTER 

DATA FLOW 
S/360 1 

EOT, EOT, EOT 


DEMOTE 




DEV. ADD, TERM. ADD 
COMMAND (WR) 


> 




ACK 




STX 


'^ 




LRC.ETX.TXT 




ACK 


^ 




V 




WR 
WR 


TN OR RESET 
TABLE 


EOT, EOT, EOT 


^ 




^ 


ro 


1. WR 

2. RD 


WR TT 
OUTAREA 

RESPN + 1 


CC 


LRC,ETX,TXT,STX 


1 
< 

ro 

CO 


ACK 


^ 




^ 





DISPLAY LINE ADDRESSES 





ASCI 1-8 












DATA BYTE FORMAT 








SELECTED LINE 




B TS 










7 ( 


) X 5 4 3 


2 


1 


Cihir 




] 


L 1 












UIMt 








] 


L 1 





1 


TWO 








] 


L 1 


1 





THREE 


2848 DC 




] 


I 1 


1 


1 


FOUR 


MODEL 1 




] 


L 1 1 








FIVE 








] 


L 1 1 





1 


C V 












2848 DC 


] 


L 1 1 


1 





SEVEN 


MODELS 


] 


L 1 1 


1 


1 


EIGHT 


2 AND 3 


] 


L 1 1 








NINE 






] 


L 1 1 





1 


ItN 






] 


110 


1 





ELEVEN 






] 


L 1 1 


1 


1 


TWFI \/F 






IvVLLVL 







DYNAMIC BUFFERING READ CCW's 



READ A 



TIC 













^ 


r 






READ B 





READ-SKIP 



1 




READ C 








READ-SKIP 








READ B 








TIC 


— 



K) 
I 

< 

I 



RD. INTO 1LT BUFF. 
AFTER PCI ON A 
BEFORE PCI ON B 



RD. INTO 2NP BUFF. 
AFTER PCI ON B 
BEFORE PCI ON C 



DYNAMIC BUFFERING WRITE CCW s 



WRITE A 



TIC 











y 


r 




WRITE B 






TIC (INVALID ADDR.) 



TIC (INVALID ADDR.) 



TIC (INVALID ADDR.) 




I 
< 

I 

o 



WR. OUT OF 1ST BUFF. 
AFTER PCI ON A 
BEFORE PCI ON B 



WR. OUT OF 2NPBUFF. 
AFTER PCI ON B 
BEFORE PCI ON C 



SPECIFIC POLL TO 2260 DS 



EOT 

2848 Address 
2260 Address 
Command (01000000) 



Addressing 
/ Sequence 




STX 
Text 
ETX 
LRC 



STX EOT 
EOT 



STX 
Text 
ETX 
LRC 



EOT SOH 



2848 Sequence 
and Response 



No Resp 



EOT 



No Resp ACK NAK EOT 



2-V-27 



GENERAL POLL 



EOT 

2848 Address Addressing 

General Address (1 1 1 1 1 1 1 1) / Sequence 
Command (01000000) 



I — \ — \ — \ — I — T 



STX 
Text 
ETX 
LRC 



STX SOH 
EOT 



EOT ACK NAK 



STX 

etc 



SOH EOT 



2848 Sequence 
and Response 



No Resp EOT 



STX 

Device Address 

Text - may be zero length 

(CAN) 

ETX 

LRC 



No Resp EOT 



STX 
etc 



No Resp ACK NAK EOT 



2-V-28 



ERASE/WRITE 



Channel Sequences 
and Responses 



SOH 

2848 Address 
2260 Address 
Command (11100000) 



Addressing 
Sequence 



STX 
Text 
ETX 
LRC 



EOT 



SOH 



2848 Sequences 
and Responses 



No Resp 



ACK 



1 — T 



No Resp 



ACK NAK EOT 



STX 
etc 



T 

EOT 



SOH 



2-V-29 



WRITE PRINTER 



SOH 

2848 Address 
Printer Address 
Command (10100000) 



Channel Sequences 
and Responses 



Addressing 
/ Sequence 



2848 Sequences 
and Responses 



No Resp NAK EOT ACK 



STX 
Text 
ETX 
LRC 



EOT 



SOH 



No Resp EOT ACK 



NAK 



STX EOT SOH 

etc 



2-V-30 



PAGE 



LOC OBJECT CODfc 



ADDRl ADDR2 STMT 



SOURCE STATEMENT 



F01JAN67 



5/01/67 



4^ 
NO 



CO 



000000 








2 


CSECT 
SAVE 


000000 








3+ 


OS 


000000 


90EC 


DOOC 


OOOOC 


4+ 


STM 


000004 


05C0 






5 


8ALR 


000006 








6 


USING 


000000 








7 


USING 


000000 








8 


USING 


OU0006 


5000 


C7FA 


00800 


9 


ST 


OOOOOA 


41A0 


C7F6 


007FC 


10 


LA 


OUOOOE 


50A0 


0008 


00008 


11 


ST 


000012 


180A 






12 


LR 


000014 


4140 


C512 


00518 


13 
14 


LA 

GETMA 


000018 


4100 


03C8 


003C8 


15+ 


LA 


OuOOlC 


4510 


COIA 


00020 


16+ 


BAL 


0U002O 


OAOA 






17+ 


SVC 


000022 


5010 


4014 


00014 


18 
19 


ST 
BUILD 


0UO026 


47F0 


C028 


0002E 


20+ 


B 


0U002A 


0014 






21 + 


DC 


00002C 


0030 






22 + 


DC 


00002 £ 


0203 


1000 C024 00000 


0002A 


23+ 


MVC 


000034 








24+ 


CNOP 


0J0034 


45H0 


C042 


00048 


25+ 


BAL 


000038 


00000040 




26+ 


DC 


00003C 


00000000 




27 + 


DC 


000040 


C9C5C3C2C2C6C2H 




28+ 


DC 


000048 


0A06 






29+ 


SVC 


0()004A 


4180 


0030 


00030 


3C 


LA 


00004E 


4080 


4018 


00018 


31 


STH 


000052 


9200 


C846 0084C 




32 
33 


MVI 
WTOR 


000056 


0700 






34+ 


CNOP 


000058 


4510 


C07E 


00084 


35+ 


BAL 


0U005C 


01 






36+ 


DC 


0U005D 


000864 




3 7+ 


DC 


000060 


0000084C 




38+ 


DC 


000064 


0020 






39+ 


DC 


000066 


0000 






40+ 


DC 


000068 


C3C8D6D6E2C54040 




41 + 


DC 


000084 








42+lHb0007 


EQU 


000084 








43+IHBOOO/A 


D^. 


000084 


0A2i 






44+ 
45 


SVC 
WAITR 


0U0086 


4110 


C846 


0084C 


46 + 


LA 


OOQ08A 


4100 


000 1 


00001 


47+ 


LA 


0()008E 


1300 






48+ 


LCR 


000090 


OAOl 






49+ 


SVC 


UU0092 


95F2 


Cd5fc 00864 




50 


CLI 


000096 


4740 


C09C 


000A2 


51 


BL 


0U009A 


4 780 


C24E 


00254 


52 


Bfc 


oaoo9E 


4720 


C226 


n022C 


53 


BH 


0000 A2 


4160 


CB82 


00B68 


54 OSON 


L/. 


0O0OA6 


4130 


C57A 


00580 


55 


L.i. 


nonn a a 


A 1 70 


r^Qj 


nnc^aa 


(;<. □ 1 


t A 



(14,12) REGISTERS SAVED IN CALLING ROUTINES SAVE AREA 
OH 

14,12,12(13} SAVE REGISTERS 
BASEREG1,0 
•,8ASEREG1 

IHADCB,DCSREG BASE REG. FOR DSECT 

IECTDECB,DECBREG BASE REG. FOR DSECT 

13,SAVE+4 ADD. OF CALLING ROUT. SAVE AREA TO MY SAVE 
10, SAVE ADO. MY SAVE AREA TO REG 10 

10,8(0,13) ADD. OF MY SAVE AREA TO CALLER'S SAVE AREA 
13,10 ADD. OF MY SAVE AREA TO REG. 13 

DCBREG.DCBl DCBl ADO TO REG 
IN R,LV=968 GET STORAGE FOR BUFFERS 
0,968(0,0) LOAD LENGTH 
l,»+4 INDICATE GETMAIN 
10 ISSUE GETMAIN SVC 
1,0CBBUFCB ADO. GF PCCL TO CCBl 

(1),20,48 20 BUFF OF 48 BYTES. AVAIL. TC ANY DCB 
•+8 BRANCH AROUND VALUES 
AL2(20) NUMBER OF BUFFERS 
AL2(48) LENGTH GF BUFFERS 
0(4, 1), ♦-4 MOVE INTC LIST 
0,4 

15, •♦20 LCAO SUP.PARAMLIST ACR 
A(»+8) ADDR OF EP PARAMETER 
A(0) DCB ADDR PARAMETER 
CLS'IECBBFBl' EP PARAMETER 
6 ISSUE LINK SVC 

WRKREG1,48 BUFFER LENGTH TO REG 

KRKREGl ,DCBBUFL STORE BUFFER LENGTH IN CCB 
RPLYECB,X'00« 

•CHOOSE 1-2260 2-1050 3-BOTH' , REPLY, 1,RPLYECB 
0,4 

1,IHB0007A BRANCH AROUND LIST 
ALl (1) REPLY LENGTH 
AL3 (REPLY) REPLY ADDRESS 
A(RPLYECB) ECB ADDRESS 
AL2(lHB000/-») MESSAGE LENGTH 
AL2(0) 

C'CHOOSE 1-2260 2-1050 3-BOTH' MESG 
• 

OH 

35 ISSUE WTCR SVC 
ECB=RPLYECB 

1,RPLYECB LCAO PARAMETER REG 1 
0,1(0,0) CCUNT OMITTED, 1 USED 
0,0 INDICATE WAITR MACRO 
I LINK TO WAIT ROUTINE 
REPLY, X'F2' 

DSON BRANCH IF 2260 ON SYSTEM 

TEN50 BRANCH IF 1050 ON SYSTEM 
DONE NLT CUDED AT THIS TIME 

TBLREG,IECTSSCI LOAD ADD OF TRANS T ' SL t INTO KFG 
LI STREG,AOLSTl TRHLST AGD FOR ACDRESS ING 1ST OS TO 'F( 



> 

m 

z 

D 
X 



PAGE 



LOC OBJECT CODE 



ADDRl ADDR2 STMT 



SOURCE STATEMENT 



FC1JAM67 5/01/67 



OOOOAE 


4160 


00b 1 


0U00B2 


A5E0 


C4F0 


0000 B6 


45E0 


C430 


OOOOBA 


^^120 


C552 


0000 BF 


4170 


C592 


0000C2 


4150 


0001 


0000C6 


9tiF2 


CdbE 


OOOOCA 


4760 


C25A 


OOOOCE 


45E0 


C32E 


OUOOD? 


4110 


C552 


0000D6 


4100 


0001 


OUOODA 


OAOl 




OOOOOC 


45E0 


C416 


OUOOEO 


4130 


C57D 


OOOOE<e 


45E0 


C32E 



OOOOEB 4110 C552 
OOOOEC 4100 0001 
OOOOFO OAOl 
0O00F2 45E0 C416 
0000F6 4160 C982 
OOOOFA 4130 C5B6 
OOOOFE 45t0 C3EE 
000102 41A0 C616 



■tv 


000106 


1B88 




fo 








Jii. 


ouoioa 


4110 


C552 


o 


oooioc 


4100 


000 1 




OuOUO 


OAOl 






000112 


45E0 


C416 




000116 


5870 


200C 




OOOllA 


50 70 


C83E 




OUOUE 


45E0 


C3U2 




000122 


4110 


C552 




000126 


4100 


000 1 




0j012A 


OAOl 






oaoi2C 


45£0 


C416 




CG0130 


95F2 


C85e 




000134 


4780 


C278 




000138 


95A1 


7005 




0G013C 


4780 


C142 




0u0140 


4130 


C57A 




0UO144 


47F0 


C146 




000148 


4130 


C57D 




00014C 


58 80 


C662 




OuC150 


45E0 


C4H0 




000154 


95F2 


Cb5E 




000158 


4780 


C280 




00015C 


95F2 


7006 




0U0160 


4740 


C166 




000164 


4780 


CIC6 




000168 


472U 


C212 




0U016C 


D20 3 


C616 




000172 


5870 


Cb3fc 



00864 



00864 



C0005 



00864 



00006 



Cd62 006 IC 



00081 
004F6 
00456 
00558 
00598 
COCCI 

00260 
00334 

00558 
00001 

0041C 
00583 
00334 

00558 
00001 

0041C 
00988 
0058C 
003F4 
0061C 



00558 
00001 

0041C 
OOOOC 
00844 
003D8 

00558 
00001 

0041C 

0027E 

00148 
00580 
0014C 
00583 
00868 
004F6 

00286 

0016C 
OOICC 
00218 
00868 
0C844 



57 

58 

59 

6C 

61 

62 

63 

64 

65 

66 

67+ 

68+ 

69+ 

70 

71 

72 

73 

74+ 

75+ 

76+ 

77 

78 CDNTPOLL 

79 

80 83 

81 

82 

83 

84+ 

85+ 

86+ 

87 

88 

89 

90 

91 

92+ 

9 3+ 

94+ 

95 

96 

97 

98 

99 
ICO 
101 

102 DSTWO 

103 B5 
104 
105 
106 
107 
108 
109 
110 

111 DSPLY 
112 



LA 

BAL 

BAL 

LA 

LA 

LA 

CLI 

BE 

BAL 

WAIT 

LA 

LA 

SVC 

BAL 

LA 

BAL 

ViAIT 

LA 

LA 

SVC 

BAL 

LA 

LA 

BAL 

LA 

SR 

WAIT 

LA 

LA 

SVC 

BAL 

L 

ST 

BAL 

WAIT 

LA 

LA 

SVC 

BAL 

CLI 

BE 

CLI 

BE 

LA 

BC 

LA 

L 

BAL 

CLI 

BE 

CLI 

8L 

BE 

BH 

MVC 

L 



LNGTHREG,129 LENGTH OF OPEN MESSAGE TO R 
RTREG,TRANSL BRANCH TO TRANSLATE ROUTINE 
RTREG,CPEN BRANCH TC OPEN FOR 2260* S 
OECBREGrDECBl DECB ADD TO REG 
AREAREGtOPNMESS ADD OF OPEN MESSAGE TO R 



EG 



LINERECa 
REPLY, X'F2' 

B2 

RTREG»WRTS 

ECB=0ECB1 



EG 
LINE NUMBER WITHIN LINE GROUP 



BRANCH IF 1050 
BRANCH TO ERASE AND WRITE FOR 
WAIT FOR 1ST WRITE TC COMPLET 

l,DECBl LCAO PARAMETER REG 1 

0,1(0,0) COUNT OMITTED,! USED 

1 LINK TO WAIT ROUTINE 

RTREG,CKICCONP BRANCH TO CHECK COMPLETIO 

LISTREGtADLST2 TRMLST OF 2ND DS TO REG. 

RTREG,WRTS BRANCH TO WRITE ERASE FOR 2 

ECB=DEC81 

l,DECBl LCAD PARAMETER REG 1 

0,1(0,0) CGUNT OMITTED, 1 USED 

1 LINK TO WAIT ROUTINE 

RTREG,CKICCCMP BRANCH TO CHECK I/O COMPL 

TBLREG,IECTRSCI ASCII TO EBCDIC 

LISTREG,PCLLST1 ADO OF POLL LIST FOR DS G 

RTREG,ROTI BRANCH TO READ INITIAL TO STA 

WRKREG3,CCREF!LE ADD OF COREFILE TO REG 

WRKREGI,WRKREG1 ZERO OUT REG 

ECB=0ECB1 

l.DECBl LCAO PARAMETER REG 1 

0,1(0,0) CCUNT OMITTED, 1 USED 

1 LINK TC WAIT ROUTINE 

RTREG,CKIOCCMP 

AREAREG,DECAREA ADD OF 1ST BUFF TO REG- 
ARE AREG ,RELAREA STORE AREA ACC FOR RELEAS 

RTREG,WRTA BRANCH TO WRITE POSITIVE AC 

ECB=DECBl 

1,DECB1 LCAD PARAMETER REG 1 

0,1(0,0) CCUNT OMITTED, 1 USED 

1 LINK TC WAIT ROUTINE 

RTREG,CKICCCMP 

REPLY, X«F2' 

B4 BRANCH IF 1050 SYSTEM 

5(AREAREG) ,X«A1» CHECK TO SEE WHICH CS RE 

DSTWO BRANCH IF DS AT ADD. Al SENT MtSS 
ADD. CF AO ADDRESSING LIS 



DS 
E 

N CODE 
260 

ElION 

EN POLL TO REG 
RT POLL ING 



ING BUFFERS 

K 



ADD. CF Al ADDRESSING LIS 
INDICATES DYNAMIC BUFFERI 
BRANCH TO TRANSLATE ROUTINE 



LISTREG,ADLST1 

15, B5 

LISTREG,ADLST2 

LNGTHREG,ZER01 

RTREG,TRANSL 

REPLY, X'F2« 

B6 BRANCH IF 1050 

6(AREAREG) ,X«F2' SEE WHAT OPERATION REQUESTED 

DSPLY BRANCH TC DISPLAY CORtFlLE 

CHANGE BRANCH TC CHANGE COREFILE 

CONTCCVP BRANCH TC CCNTINUF CCMPAKF 

C0REFIlfc{4) ,ZERC1 ZERCS TO FIRST WORD OF CORE 

AREAREG,RELAREA ADD. CF INPUT AREA 70 REG 



SPONDED TO POLL 

AGE 

T TO REG 



T TO REG 

NO TO TRANSLATE 



PAGE 



LOG OBJECT coot 



ADDRl A0DR2 STMT SOURCE STATEMENT 



FC1JAN67 



5/01/67 



NO 



000176 45E0 C4A6 
0U017A 4170 C616 
00017E 58B0 C866 
0U0182 4160 C68? 
0U0186 45Ea C4F0 
00018A 45E0 C32E 

00018E 4110 C352 

00U192 4100 0001 

0UC196 OAOl 

010198 45t0 C416 

00019C D203 C616 C862 0061C 

0001A2 4160 C982 

0U01A6 45EU C4F0 

OdOlAA 47F0 COFO 

OOOIAE 4160 0081 

0001B2 4170 C592 

0C01B6 45E0 C32E 



OOOIBA 

oaoiBE 

00G1C2 

oaoiC4 

0001C8 

auai^c 

00 01 02 
000 106 

OOOIDA 
OOOIEO 
000 1E4 
000 1E8 
OOOIEC 
0001F2 
0001F6 
OOOIFA 
0C0200 
OU0204 
000208 
00020C 
000210 
000214 
000218 
0002 IC 
0G0220 
000224 
OG0228 
0U022C 
000230 
000234 



4110 
4100 
OAOl 
45E0 
47F0 
D22B 
5A80 
5080 
0502 
4780 
5AA0 
5877 
022B 
5A80 
5080 
0502 
4780 
5AAU 
47F0 
5870 
45£0 
47F0 
95F3 
4780 
5870 
45fcO 
4irF0 
45t0 
45tO 
5810 



C552 

000 1 

C416 
COFO 
AOO-4 
C84E 
C866 
7001 
C206 
C852 
0000 
AOOO 
C85A 
C866 
7001 
C206 
Cd5A 
C1E2 
C83t 
C4A6 
C1A8 
7006 
C226 
C83£ 
C4A6 
CIA8 
C48A 
C46E 
4U14 



7007 



C84A 



7004 



C84A 



000238 410U 03C8 
0002 3C 18 11 
0(j023t OAOA 

000240 

000240 47FQ C242 



004AC 


113 


BAL 


0061C 


114 


LA 


0086C 


115 


L 


00B88 


116 


LA 


004F6 


117 


BAL 


00334 


118 


BAL 




119 


WAIT 


00558 


120+ 


LA 


00001 


121 + 


LA 




122+ 


SVC 


0041C 


123 


BAL 


0061C 00868 


124 


MVC 


00988 


125 


LA 


004F6 


126 


BAL 


000F6 


127 


BC 


00081 


128 CONT 


LA 


00598 


129 


LA 


00334 


130 


BAL 




131 


WAIT 


00558 


132+ 


LA 


00001 


133+ 


LA 




134+ 


SVC 


0041C 


135 


BAL 


000F6 


136 


BC 


00004 OX>007 


137 CHANGE 


MVC 


00854 


138 


A 


0086C 


139 


ST 


OOOOl 0085C 


140 


CLC 


0020C 


141 


BE 


00858 


142 


A 


OOCGC 


143 CHANGEA 


L 


00000 00004 


144 


MVC 


0086C 


145 


A 


0086C 


146 


ST 


00001 00850 


147 


CLC 


0020C 


148 


BE 


0086C 


149 


A 


001E8 


150 


BC 


00844 


151 Al 


L 


004AC 


152 


BAL 


OOIAE 


153 


BC 


00006 


154 CUNTCOMP 


CLI 


0022C 


155 


RE 


008A4 


156 


L 


004AC 


157 


BAL 


OOIAE 


158 


BC 


00490 


159 DUNE 


BAL 


00474 


160 


BAL 


00014 


161 


L 




162 


FREEM 


003C8 


163+ 


LA 




164+ 


LR 




165+ 


SVC 




166 


ABEND 




167+ 


CNGP 


00248 


168+ 


B 



RTREG,RELBUFF BRANCH TO RELEASE BUFFERS USED FOR RO 
AREAREGtCCREFILE ACQ, OF MESS. TO OS TO REG. 
LNGTHREG,CCREFLN LENGTH CF COREFILE TO REG. 
TBLREGtIECTSSCI EBCDIC TO ASCII TABLE ADD. TO REG. 

RTREG.TRANSL BRANCH TC TRANSLATE ROUTINE 
RTREG,WRTS BRANCH TO WRITE ERASE 

ECB=DEC81 

1,DEC81 LCAD PARAMETER REG I 
0,1I0,0) COUNT OMITTED, I USED 
1 LINK TO WAIT ROUTINE 
RTREG,CKICCCMP 

C0REFILE{4) ,ZER01 ZEROS TO FIRST WORD OF COREFILE 

TBLREGflECTRSCI ASCII TO EBCIDIC TABLE ACD TO REG 
RTREG.TRANSL TRANSLATE COREFILE BACK TO EBCDIC 
15,C0NTPCLL 

LNGTHREG,129 LENGTH CF OPENMESSAGE TO REG 

AREAREG,OPNMESS ADD OF OPEN MFSS TO REG 

RTREGtWRTS BRANCH TO WRITE ERASE- OPEN MESS 

EC8=DECBl 

ItDECBl LCAD PARAMETER REG 1 
0,1(0,0) CCUNT OMITTED, 1 USED 
1 LINK TO WAIT ROUTINE 
RTREGfCKICCCMP 

15,CCNTPCLL BRANCH TG CONTINUE POLLING 
4 (41 , WRKREG3 1 , 7 ( AR£ AREG ) f l«ST BUFF TO CCREf ILE 
WRKREG1,BUFFL48 48 TO COUNT IN REG 

WRKREG1,CCREFLN STORE COUNT IN ACCUMULATOR 

1(3, AREAREG) , ZERO SEE IF LAST PUFF OF MESS 
Al BRANCH IF LAST BUFFER OF MESS TRANSFERRED 

WRKREG3,8UFFLTH5 ADJUST COREFILE ADD CONTAINED IN REG 

AREAREG, O(AREAREG) ADD. OF NEXT BUFF TO AREAREG 
0(44, WRKREG3) ,4( AREAREG) MOVE NEXT BUFFER TO COREFILE 
WRKREGl ,BUFFLTH4 INCREASE COUNT OF CHAR MOVED BY A4 

WRKREGl ,CCREFLN STORE COUNT IN ACCUMULATOR 
1 (3, AREAREG) , ZERO SEE IF LAST BUFF 
Al BRANCH IF LAST BUFFER 

WRKREG3 ,BUFFLTH4 ADJUST ADC. CF COREFILE IN REG 

15, CHANGEA BRANCH TC TRANSFER NEXT BUFFER TO COREFILE 

AREAREG, RELAREA ADD. CF FIRST BUFFER TC REG 

RTREG,RELBUFF BRANCH TO RELEASE BUFFERS 

15, CONT 

6(AREAREG) ,X«F3' 

DONE IF 2260 OPERATOR ENTERED 3 BRANCH TO DONE 
AREAREG, RELAREA TC HERE IF 4 tNTEKEC 
RTREG,RELBUFF BRANCH TO RELEASE INPUT BUFFERS 
15,CCNT BRANCH TO CONT THAT IS PUT OUT OPEN MtSS 
RTR£G,LERPRT IF DONE PRINT OUT VALUES IN LREB 
RTREG,CLCSE 

REGl ,DCBBUFCB ADD. CF AREA TG BE FREEH WITH FREEMAIN 
AIN R,LV=968,A=(REGl) 
0,968(0,0) LCAD LENGTH 
1,REG1 LCAD AREA ADDRESS 
10 ISSUE FREEMAIN SVC 
12,DUKP 
0,4 
•+8 BRANCH ARCUND CCNSIANT 
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LOC OBJECT CODE 



ADDRl AD0R2 STMT 



SOURCE STATEMENT 



FC1JAN67 5/01/67 





000244 


80 






169+ 


DC 




000245 


OOOOOC 




170+ 


DC 




0QU248 


5810 


C23E 


00244 


171 + 


L 




0J024C 


OAOU 






172+ 
173 


SVC 
HETUR 




00024E 


98EC 


DOOC 


COOOC 


174+ 


LH 




000252 


07FE 






175+ 


BR 




000254 


4160 


CA82 


00A88 


176 TEN50 


LA 




000258 


4130 


C583 


00589 


177 


LA 




0O025C 


47F0 


C0A4 


OOOAA 


178 


BC 




000260 


45E0 


C3A2 


003A8 


179 B2 
180 


BAL 
WAIT 




000 264 


4110 


C552 


00558 


181 + 


LA 




000268 


4100 


0001 


COCOl 


182 + 


LA 




0U026C 


OAOl 






183+ 


SVC 




0a026E 


45t0 


C416 


OO'.IC 


184 


BAL 




000272 


4130 


C58B 


00591 


185 


LA 




000276 


4160 


C882 


00888 


186 


LA 




O0O27A 


47F0 


C0F8 


OOOFE 


187 


BC 




Ov)027h 


4160 


C882 


00888 


188 B4 


LA 




000282 


47F0 


C146 


0014C 


189 


BC 




000286 


95F2 


7005 


00005 


190 B6 


CLI 




Uu02aA 


4 740 


C290 


00296 


191 


BL 




00028E 


4780 


C2E2 


002E8 


192 


BE 


4^ 


000292 


4720 


C226 


0022C 


193 


BH 




000296 


020 3 


C616 C862 


0061C 00868 


194 DSPLYl 


MVC 


to 


0u029C 


5870 


C83t 


00844 


195 


L 


*-ti^ 


0002A0 


45E0 


C4A6 


004AC 


196 


BAL 


N3 


0G02A4 


4170 


C616 


0061C 


197 


LA 




0002A8 


5880 


C866 


00fl6C 


198 


L 




0002AC 


4160 


CA82 


00A88 


199 


LA 




000280 


45E0 


C4F0 


004F6 


2CC 


BAL 




000284 


4130 


C583 


00589 


201 


LA 




0002 88 


45t0 


C3A2 


003A8 


202 
203 


BAL 
V«AIT 




0iJ02BC 


4110 


C552 


00558 


204+ 


LA 




00 02 CO 


4100 


0001 


00001 


2C5+ 


LA 




0002C4 


OAOl 






206 + 


SVC 




0U02C6 


45E0 


C416 


004 IC 


207 


BAL 




0002CA 


D203 


C616 C862 


0061C 00868 


2C8 


MVC 




000 200 


4160 


C882 


00888 


209 


LA 




0002D4 


45E0 


C4F0 


004F6 


210 


BAL 




00U2D8 


4130 


C58 3 


00589 


211 CONTl 


LA 




00020C 


41 BO 


0081 


00081 


212 


LA 




0002E0 


4170 


C592 


00598 


213 


LA 




0002E4 


47F0 


C25A 


0026C 


214 


BC 




0U02Etl 


0229 


A004 7006 


000C4 00006 


215 CHANGfcl 


MVC 




0002EE 


5AdO 


Cb4e 


00854 


216 


A 




G'J02F2 


5080 


C866 


0086C 


217 


ST 




0O02F6 


0502 


700 1 c84A 


OOOOl 00850 


218 


CLC 




0J02FC 


4730 


C322 


00328 


219 


BE 




0JC300 


5AA0 


Cd56 


0085C 


220 


A 




000304 


5877 


0000 


OOOCC 


221 CHANGtlA 


L 




ooo3oa 


D220 


AOOO 7004 


00000 00004 


222 


MVC 




00030F 


5 AbO 


C65A 


00860 


223 


A 




OU0312 


5080 


ca66 


0086C 


^2'^ 


ST 



AL1(I28) DUHP/STEP CODE 
AL3(12) CCMPLETION COCE 
l,»-4 LOAD CODES INTO REG 1 

13 LINK TC ABEND ROUTINE 
N (14,12) 

i4,12,l2(13» RESTORE THE REGISTERS 

14 RETURN 

TBLREG,IECTS050 LOAD ADD. OF TRANS. TABLE TO REG 

LISTREG,ADLST4 TRKLST ADD. FOR ACCRESSING 105C TO REG 

15, Bl 

RTREG,WRTI BRANCH TO WRITE INITIAL 

ECB=DEC61 

l.DECBl LCAD PARAMETER REG 1 

0,1(0,0) COUNT OMITTED, 1 USED 

1 LINK TO WAIT ROUTINE 

RTREG,CKICCCMP 

ACD. CF 1050 POLL LIST TO REG 
1050 TO EBCDIC 



LISTREG,PGLLST2 

TBLREG,IECTRF50 

15, B3 

TBLREG,IECTRF50 

15, B5 

5(AREAREG) ,X'F2« 

DSPLYl 

CHANGEl 

DONE 

C0REFILE(4) ,ZEROl ZERCS TO FIRST WORD OF COREFILE 

AREAREG,RELAREA ADD. OF FIRST INPUT BUFF TO REG 

RTREG,RELBUFF BRANCH TO RELEASE BUFFERS 

AREAREG,CCREFILE ADO. OF COREFILE TO REG 

LENGTH OF COREFILE 10 REG 
EBCDIC TO 1050 TABLE TO RtG 



1050 TO EBCDIC TABLE ACD 

SEE WHAT 1050 OPERATOR REQUESTED 
BRANCH TC DISPLAY COREFILE 
BRANCH TO CHANGE COREFILE 



ACD. CF 1050 ADDRESSI'JG LIST TO REG 



LNGTHREG,CCREFLN 

TBLREG,IECTSD50 

RTREG,TRANSL 

LISTREG,ADLST4 

RTREG,WRTI 

EC8=0ECB1 

l.OECBl LOAD PARAMETER REG 1 

0,1(0,0) CCUNT 0MITTED,1 USED 

1 LINK TC WAIT ROUTINE 

RTREG,CKICCCMP 

C0REFILE{4) .ZEROl 

TBLREG,IECTRF50 1050 TO EBCDIC TABLE ADC TO REG 

RTREG,TRANSL BR TC TRANSLATE COREFILE BACK TO EBCDIC 

LISTREG,ADLST4 

LNGTHREG,129 

AREAREG,CPNMESS 

15, B2 

4(42,WRKREG3) ,6( AREAREG) 

WRKREGl ,BUFFL48 

WRKREGl ,CCREFL.\ 

1 (3, AREAREG) ,ZERC SEE IF THIS WAS LAST BUFFER 

A2 BRANCH IF LAST BUFFER 

WRKREG3,BUFFLTH6 ADJUST COREFILE ACD. FCR NEXT MO V F 

A^EAREG,0(AREAKeG> ACC OF NEXT BUFFER fU REG 

0(44, WRKREG3) ,4( AREAREG) MOVE INPUT TO CCt'.EF ! T 

WRKREGl ,BUFFLTH^ 

hRXREGl ,CCREFi N 



ADD CF OPEN MESSAGE TO REG 



MOVE FIRST BUFF TC COREFILE 
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LOC OBJECT coot 



ADDRl A00R2 STMT 



SOURCE STATEMENT 



FC1JAN67 5/CI/67 





000316 D502 


7001 C84A 


00001 


00850 


225 


CLC 


1(3, AREAREG), ZERO 




00031C 4730 


C322 




00328 


226 


BE 


A2 




000320 5AA0 


Cd5A 




0086C 


227 


A 


WRKREG3,BUFFLTH4 ADJUST CCREFILE ADDRESS 




000324 47F0 


C2Ffc 




00304 


228 


BC 


15,CHANGeiA 




000328 5870 


C83E 




00844 


229 A2 


L 


AREAREG, RELAREA 




00032C 45E0 


C4A6 




004AC 


230 


BAL 


RTREG,REL8UFF 




000330 47F0 


C2D2 




00208 


231 


BC 


I5,C0NTl 




000334 50fc0 


Ca42 




00848 


232 WRTS 
233 


ST 
WRITE 


RTRECSAVERET 

(DEC8REG) ,TSR,{DCBREG),( AREAREG ),(LNGTHREG), 

(LINEREG) ,KF=E 




000338 1812 








234+ 


LR 


ItDECBREG LOAD OECB ADDRESS 




00033A 9200 


1004 


00004 




235+ 


MVI 


4(1) ,0 




00033E 928E 


1005 


00005 




236+ 


MVI 


5(1» ,142 




000342 40B0 


1006 




00006 


23 7+ 


STH 


LNGTHREG, 6(0,1) STORE LENGTH 




000346 5040 


1008 




C0008 


238+ 


ST 


DCBREG. 8(0,1) STORE DCB ADDRESS 




OU034A 5070 


lOOC 




OOOOC 


239+ 


ST 


AREAREG, 12 (0,1) STORE AREA ADDRESS 




00034t 5030 


1014 




00014 


24 0+ 


ST 


LISTREG, 20(0,1) STORE TERM. LIST ACCR. 




000352 4050 


1018 




00018 


241 + 


STH 


LINEREG, 24(0,1) STORE LINE NUMBER 




000356 58F0 


4030 




00030 


242+ 


L 


15, 48(0, DCBREG) LOAD RDWR ROUT. ADCR. 




00035A 05fcF 








243+ 


8ALR 


14,15 




0»035C 58E0 


Cd42 




00848 


244 


L 


RTREG,SAVERET 




000360 47FF 


C35E 




00364 


245 


BC 


15,CKICST{15) BRANCH TC SEE IF I/O STARTED 


-ti- 


000364 07Fc 








246 CKIOST 


BR 


RTREG RETURN CODE X«00«. OP STARTED OK. 


Oi)i).ihb 4.I0_Q 


0000 




00000 


247 


NOP 


RETURN CODE X«04« 


ro 


UU036A 4700 


0000 




OOOOC 


248 


NOP 


RETURN CODE X' 08* 


• 

4i- 


0J036E 4700 


0000 




OOOOC 


249 


NOP 


RETURN CODE X«0C« 


CO 


000372 4700 


0000 




OOCCC 


25C 


NOP 


RETURN CODE X' 14« 




000376 4700 


0000 




00000 


251 


NOP 


RETURN CODE X« 10« 




0O037A 4700 


0000 




OOOOC 


252 


NOP 


RETURN CODE X«18« 




OU037E 4700 


0000 




00000 


253 


NOP 


RETURN CODE X« 1C« 




000382 4700 


0000 




OOCCC 


254 
255 


NOP 

WTO 


RETURN CODE X«20' 
•I/O DID NCT START' 




0OQ386 0700 








256+ 


CNOP 


0,4 




0J0388 4510 


C39C 




003A2 


257+ 


BAL 


1,IHB0031A BRANCH AROUND MESSAGE 




00038C 0015 








258 + 


DC 


AL2(IHB0031-*) MESSAGE LENGTH 




00D38E 0000 








259+ 


DC 


AL2(0) 




000390 C961U640C4C^C440 




260+ 


DC 


C'l/C DID NCT START' MESSAGE 




0J03A1 








261+IHBC031 


EQU 


• 




0UO3A2 








262+IH6C03ia 


DS 


OH 




0003A2 0A23 








263+ 


SVC 


35 ISSUE SVC 




GU03A4 47F0 


C226 




0022C 


264 


BC 


15, DONE 




0:J03AB 50E0 


C642 




00848 


265 WRTI 
266 


ST 
WRI Tt 


RTREG, SAVERET 

(OECBREG) ,TI, 1 DCBREG), (AREAREG ), (LNGTHKEG),(I 

(LINEREG) ,MF=E 




C003AC 1812 








26 7+ 


LR 


1,DECBREG LOAD DECB ADDRESS 




0003 AE 9200 


1004 


00004 




268+ 


MVI 


4(1) ,0 




0OO3B2 9202 


1005 


00005 




269+ 


MVI 


5(1) ,2 




OU03B6 40B0 


1006 




00006 


270+ 


STH 


LNGTHREG, 6(0,1) STCRE LENGTH 




0003BA 5040 


1008 




00008 


271 + 


ST 


DCBREG, 8(0,1) STCRE DCB ADDRESS 




OiJ03BE 5070 


lOQC 




OOOOC 


272+ 


ST 


AREAREG, 12(0,1) STCRE AREA ADDRESS 




0OO3C2 5030 


10 14 




C0C14 


273+ 


ST 


LISTREG, 20(0,1) STCRE TERM. LIST flCCR. 




0UU3C6 4050 


1018 




00C18 


274+ 


STH 


LINEREG, 24 (0,1) STCRE LINE NUMBER 




Oa03CA 58F0 


40 30 




00030 


2 75+ 


L 


15, 48(0, DCBREG) LCAC RCwR ROUT, ACCR, 




0003Cfc 05tF 








276+ 


BALR 


14,15 




000 300 58 to 


C842 




00848 


277 


L 


RTREG, SAVERET 




QU0304 47Ff 


C356 




00364 


278 


BC 


15,CK!f:ST(15) 



OK 



PAGE 





LOG 


OBJECT CODE 


AOOKl 


A0DR2 


STMT SOURCE 


STATE 




0U03D8 


50t0 


C842 




00848 


279 WRTA 
280 


ST 
WRITE 




0(J03DC 


1812 








281 + 


LR 




0U03DE 


9208 


1005 


00005 




282 + 


MVI 




0003E2 


5040 


1008 




00008 


283+ 


ST 




0U0 3E6 


58F0 


40 30 




00030 


284+ 


L 




0003 E A 


05EF 








285+ 


BALR 




0U03EC 


58fc0 


C842 




00848 


286 


L 




000 3FO 


47FF 


C35E 




00364 


287 


BC 




0003F4 


50tO 


C842 




00848 


288 ROTI 
289 


ST 

READ 




0003F8 


1812 








290+ 


LR 




0003FA 


9203 


1004 


00004 




291 + 


MVI 




OOU3F6 


9201 


1005 


00005 




292+ 


MVI 




0C0402 


5040 


1008 




00008 


293+ 


ST 




000406 


5030 


1014 




00014 


294+ 


ST 




00040 A 


4050 


1018 




00018 


295+ 


STH 




00040b 


58F0 


4030 




00030 


296+ 


L 




000412 


05bF 








297+ 


BALR 




000414 


58eo 


CB42 




00848 


298 


L 




000418 


47FF 


C35E 




00364 


299 


BC 




00U41C 


50 to 


C842 




00848 


300 CKIOCOMP 


ST 




OU0420 


957F 


2000 


00000 




301 


CLI 


4^ 


000424 


4780 


C44A 




00450 


302 
303 


BE 
WTO 


• 


000428 










304+ 


CNOP 


000428 


4510 


C444 




0044A 


305+ 


BAL 




00042C 


OOIE 








306 + 


DC 


00042F 


0000 








30 7 + 


DC 




000430 


C2C1C440C3U6D407 




308+ 


DC 




0'iU44A 










309+IHB0038 


EQU 




00 044 A 










31C+IHB0038A 


OS 




00044A 


0A2 3 








311 + 


SVC 




00044C 


47F0 


C226 




0022C 


312 


BC 




000450 


56tO 


Cti42 




00848 


313 COMPOK 


L 




000454 


7FE 








314 


BR 




000456 


50 to 


Ctt42 




00848 


315 OPEiM 
316 


ST 

OPEN 




00045A 


0700 








317+ 


CNOP 




00045C 


4510 


C45E 




00464 


318+ 


BAL 




000460 


00000000 






319+ 


DC 




000464 


5041 


0000 




OOCCO 


320+ 


ST 




0a0468 


9280 


1000 


00000 




321 + 


MVI 




00 046 


0A13 








322 + 


SVC 




00 046 E 


58 to 


CrJ42 




00848 


32 3 


L 




0U0472 


07Ft 








324 


8R 




00U4 74 


50tO 


C842 




00848 


325 CLOSE 
326 


ST 

CLOSE 




000478 










32 7+ 


CNOP 




000478 


4510 


C4/A 




004a0 


328+ 


BAL 




0UL47C 


00000000 






329+ 


DC 




000480 


3041 


0000 




oocoo 


33C+ 


ST 




000484 


92d0 


1000 


00000 




331 + 


MVI 




0J048tJ 


0AL4 








332+ 


SVC 




0v048A 


58 to 


C«4^ 




00848 


3 13 


L 




00 04 8 E 


07Ft 








334 


BR 



FC1JAN67 5/01/67 



RTRECSAVERET 

(DECBREG) ,T A, (DCBREG ),,,,, MF=E 

l.DECBREG LOAD DECB ADDRESS 

5(1) ,8 

DCBREG, 6(0,1) STORE DCS ADDRESS 

15,48(0,DCBREG) LOAD RDWR ROUT. ADDR. 

14,15 

RTREG,SAVERET 

15,CKICST{15) 

RTREG,SAVERET 

(DECBREG) ,TI,(DCBREG),'S* , « S • , ( L ISTREG ) , ( L INEREG ) ,MF=E 

1, DECBREG L€AD DECB ADDRESS 

4(1) ,3 

5(1) ,1 

DCBREG, 8(0,1) STORE DC8 ADDRESS 

LISTREG, 20(0,1) STORE TERM. LIST ADCR. 

LINEREG,24(0,l) STORE LINE NUMBER 

15,48(0, DCBREG) LOAD RCWR ROUT. ADDR. 

14,15 

RTREG,SAVERET 

15,CKICST(15) 

RTREG,SAVERET 

O(DECRREG) ,X'7F' 

COMPOK 

•BAD CCMPLETICN COOt CN I/O* 

0,4 

1,IHB0038A BRANCH AROUND MESSAGE 

AL2 (IHB0038-*) MESSAGE LENGTH 

AL2(0) 

C»BAD CCMPLETICN COCE ON I/O* MESSAGE 

* 

OH 

35 ISSUE SVC 

15, DONE 

RTREG,SAVERET 

RTREG 

RTREG,SAVERET 

( (DCBREG) ) 

0,4 

l,*+8 LCAD REGl W/LIST ACCR- 

A(0) CPT BYTE AND OCB ACDR. 



DCBREG, 0(1,0) 
0(1) ,128 MCVE 

19 ISSUE CPEN 
RTREG, SAVERET 
RTREG 

RTREG, SAVERET 
((DCBREG) ) 
0,4 

l,*+8 BRANCH AROUND 
A(0) CPTICN AND DCB 
DCBREG, 0( I ,0) STORE 
0(1) ,128 MCVE IN CPTICN 

20 ISSUE CLCSF SVC 
RTREG, SAVERfcT 
RTRt;> 



STORE INTO LIST 
IN OPTION BYTE 
SVC 



LIST 

ADDRESS 
DCB ACCRESS 
BYTE 



PAGE 



N3 



4i- 



LOG OBJtCT COOc 

000^90 50EU C842 

000494 

Oi 0494 45FU C496 

0.)u498 80 

000499 000000 

00049C 18 14 

U0049E 180!> 

0uJ4Aa 38Ff- 0000 

0U04A4 05tF 

0004A6 o8fc0 C842 

00G4AA 07Fb 

)04AC 50eO CB42 



OQ04BO 






0004 BO 


1814 




0ii04B2 


4107 


0000 


0004 B6 


0A3A 




0004B8 


88F0 


0016 


0Gu48C 


5860 


C842 


000400 


47FF 


C4BE 


0004C4 


07Ft 




OU04C6 


4700 


0000 


GU04CA 


4700 


0000 


0004CE 


4700 


0000 


0004 D2 


4700 


0000 


0004 D6 


0700 




000408 


4510 


C4fcA 


0U04DC 


0013 




0004DE 


0000 




0uG4E0 


09C503C2E4C640D/ 


0004EF 






0004FO 






0004F0 


0A?3 




0U04F2 


47F0 


C226 


0004F6 


50E0 


Cb42 


0004FA 






00 04 FA 


1808 




0()04FC 






0004FC 


4510 


C506 


000500 


00000000 


000504 


00000000 


000508 


00000000 


00050C 


5041 


0000 


000510 


506 1 


0004 


00C514 


50 71 


0008 


000518 


5BF0 


C51A 


00051C 


47F0 


C51E 


000520 


00000000 


CC-0524 


05tF 




000526 


58 to 


C842 


0G052A 


07Fe 




000000 






cc^oboi 







A[ 


)DR1 ADDR2 


STMT SOURCE 


STATEMENT 




00848 


335 LERPRT 


ST 


RTRECSAVERET 






336 


LERPRT (DCBREG) ,{LIN£REG) 






33 7+ 


CNOP 


0,4 




0049C 


338+ 


BAL 


15,»+8 






339 + 


DC 


AL1(128) 






340+ 


DC 


VL3(IECTLERP> 






341 + 


LR 


I, (DCBREG) 






342+ 


LR 


0,<LINEREG) 




OOOOC 


343+ 


L 


15,0(15) 






344+ 


BALR 


14,15 




00848 


345 


L 


RTREG,SAVERET 






346 


BR 


RTREG 




00848 


347 RELBUFF 


ST 


RTREG,SAVERET 






348 


RELBUF (OCBREGJ ,{AREAREG) 






349+ 


US 


OH 






35C+ 


LR 


1, DCBREG 




00000 


351 + 


LA 


0,0{AREAREG) 






352 + 


SVC 


58 




00018 


353+ 


SRL 


15,24 




00848 


354 


L 


RTREG, SAVERET 




004C4 


355 


BC 


15,CKRELB{15) 






356 CKRELB 


BR 


RTREG RETURN CODE X'OO'-NORMAL 




OOOOC 


357 


NOP 


X'04» 




00000 


358 


NOP 


X«08' 




00000 


359 


NOP 


6 X»OC' 




GCCCG 


360 


NOP 


X'lO* 






361 


WTO 


•RELBUF PROBLEMS* 






362+ 


CNOP 


0,4 




004FO 


363+ 


BAL 


1,IHB0043A BRANCH AROUND MESSAGE 






364+ 


DC 


AL2{IHB0043-*) MESSAGE LENGTH 






365+ 


DC 


AL2(0> 


/ 




366+ 


DC 


C'RELBUF PROBLEMS' MESSAGE 






367+IHB0043 


EQU 


• 






368+IHBC043A 


OS 


OH 






369+ 


SVC 


35 ISSUE SVC 




0022C 


37C 


BC 


15, DONE 




00848 


371 TRANSL 


ST 


RTREG, SAVERET 






372 


TKNSLATE (DCSREG) , (TBLREG) , ( AREAREG), { 






3 7 3+ 


DS 


OH 






374+ 


LR 


0,LNGTHREG 






375 + 


CNOP 


0,4 




005CC 


376+ 


BAL 


1,»+16 






377 + 


DC 


A{0) 






378+ 


DC 


A(0) 






379+ 


DC 


A(0) 




OOCCC 


380+ 


ST 


DCBREG, 0(1) 




00004 


381 + 


ST 


TBLREG, 4(1) 




00008 


382 + 


ST 


AREARECBd) 




00520 


383 + 


L 


15, • + 8 




00524 


384 + 


B 


♦+8 






385 + 


DC 


V(IECTTRNS) 






386+ 


BALR 


14,15 




00848 


387 


L 


RTREG, SAVERET 






388 


BR 


RTREG 






389 REGO 


EQL 









390 REGI 


EQL 


1 



FC1JAN67 



5/01/67 



PAGE 



LQC UBJECT CODE 

000002 
OCUOOB 
0l)0004 
OUOOOS 
000006 
0OC0O7 
O'lOOOB 
000009 
OOOOOA 
OOOOOB 
OUOOOC 
OOOOOfc 



ADORl A00R2 STMT 



SOURCE STATEMENT 



FC1JAN67 5/CI/67 



391 


DECBREG 


EQt 


2 


392 


LISTREG 


EQU 


3 


393 


DC8REG 


EQU 


4 


39A 


LINEREG 


EQU 


5 


395 


TBLREG 


EQU 


6 


396 


AREAREG 


EQU 


7 


397 


WRKREGl 


EQU 


8 


398 


WRKREG2 


EQL 


9 


399 


WRKREG3 


EQU 


10 


AOO 


LNGTHREG 


EQU 


11 


401 


BASEREGl 


EQU 


12 


402 


RTREG 


EQL 


14 


A03 


DCBl 


DCB 


DSi 



404 



REG FCR ACD. CF DECB 

REG. FOR ACD. CF POLL ING/ flCDRESS ING LIST 

REG. FCR ACD. CF CCfi 

REG. FCR RELATIVE LINE NUMBER WITHIN DCP 

REG. FCR ADC. OF TRANSLATE TABLE 

REG. FOR ADD. OF I/O AREA 



REG. FOR RETURN ADD. 
DS0RG=CX,KACRF=(R,W),DDNAME=DS2260,eFTEK=C,LfcRB=ALERB, 
ERRCPT= ERWC 
»,*•• IHB063 DDNAME SHORT-PADCEC TO 8 CFAK 





000518 






Uvjo5l8 






0u052C 




-15- 


GO 052 C 


00 


?o 


0U052D 


000001 


J^ 


000530 


0000 


o 


0u()532 


1000 




G'0534 


0000000 1 



0i0538 08 

0_u539 OA 

0^/G53A OOOu 

0>;053C DO 

0.;053b 00 )J00 



406+* 




407+* 




408+ 


ORG 


409+OCBl 


OS 


410+ 


ORG 



DATA CCNTRCL RLCCK 

•-20 TC ELIMINATE UNUSED SPACE 
OF ORIGIN CN WCRD BCUNDRY 
»+20 TC ORIGIN GENFRATICN 



412+* 




CCMKON ACCESS METHOD INTERFACE 


414+ 


DC 


ALl(O) BUFNC 


415+ 


DC 


AL3(1) BUFCR 


416 + 


DC 


AL2(0) auFL 


417+ 


DC 


bL2'0001000000000000' DSCRG 


418+ 


DC 


A«n ICBAD 


42C+» 




FOUNDATION EXTENSION 


422 + 


DC 


BLI'OOOOIOOO' RFTEK.BFALN 


42 3 




*»»•• IHB072 LERB REQUEST ED-ERKGPT^C ASSUMED 


424 + 


DC 


BLl'OOOOIllO' BTAM ERRQPT CUCE 


425 + 


DC 


H'O' 


426 + 


OC 


BLl'OOOOOOOO' -^eCFM 


42 7 + 


OC 


AL3{0) FXLST 



429+» 



FCUNDAriCN BLOCK 



0(0540 C4E2F2h/?F6l-O4040 

u M)b4d 02 

0./O549 00 

J.(i54A 202vJ 

0.iU54C 000UUH/;> 

Uu.»550 OOO'JUOUUOOLUOOUO 

00055b 

0)0558 OOOOOOUi^ 

OU055C 00 

J.M)55I) 00 

0L.055E 0000 

O.i0560 000005 IH 



43U 


DC 


4 32 + 


DC 


4 3 3 + 


DC 


4 34 + 


DC 


435 + » 


BTAM 


436 + 


OC 


437 + 


DC 


438 


^RITE 


439 + 


IS 


440+DFCBl 


oL 


441 + 


OC 


442 + 


DC 


443 + 


OC 


444 + 


DC 



CL8'DS2260' DONATE 
BLl '00000010' CFLGS 
BLl '00000000' IFLG 
BL2'0010000000100000« MACR 
INTERFACE 
A(ALERB) DCBLERP 
2F'0' 

DECBl ,T,DCB1 , , , ,1 ,^^F = L 
OF 

A(0) EVENT CCMRCL f'LCCK 
BLl '000' 

ALl (0) TYPE FIELD 
AL2(0> LENGTH 
A(DCBI) DCB ADDRESS 



PAGE 



LOC OBJECT CODE 



ADDRl AD0R2 STMT 



SOURCE STATEMENT 



F01JAN67 



5/01/67 





00056^ 


00000000 




000568 


00000000 




GU056C 


00000000 




000570 


0001 




000572 


0000 




0005 74 


00 




000575 


00 




000576 


0000 




000578 


00000000 




0G057C 


00000000 




00G580 






000580 


AOAO 




0U0582 


81 




000583 






000583 


AOAl 




000585 


81 




000586 






000586 


A0A2 


45^ 


000588 


81 


k) 


000589 




• 


000589 


6202 


VJ 


000588 
0O058C 


81 




00058C 


AOFF 




0U058E 


21 




00058F 


FFFD 




000591 






000591 


620 H 




000593 


21 




000594 


FFFD 




000598 






000598 


00000000 




00059C 


C7D6D6C440U406D9 




0005A9 


4040400703C5CIE2 




0G05C9 


404040C5D5t3C5n9 




0005E1 


404040H4fi40C4C9 




0005F8 


404040F24e40C3CB 




00060E 


404040F34B40C41)6 




C0061C 






00061C 


00000000 




0f.062C 


C7C5E340E6C9E3C8 




00064F 


4040404040404040 




00074F 


4040404040404040 




0007FC 






000844 






000848 






0U084C 






000850 


000000 




000853 


00 




000854 


00000030 



445+ 

446+ 

447+ 

448+ 

449+ 

450+ 

451 + 

452+ 

453+ 

454+ 

455 AOLSTl 

456+AOLSTl 

457+ 

458+ 

459 A0LST2 

460+ADLST2 

461 + 

462 + 

463 ADLST3 
464+A0LST3 
465+ 

466+ 

467 ADLST4 

468+ADLST4 

470+ 

471 POLLSTl 

472+POLLSri 

473+ 

474+ 

475+ 

476 P0LLST2 

477+POLLST2 

478+ 

479+ 

480+ 

481 

482 OPNMESS 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 



DC A(0) AREA ADDRESS 

DC AiO) ERROR INFC. FIELD ADDR 

DC A(0) TERMINAL LIST ADDRESS 

DC AL2(1) LINE NUMBER 

DC AL2(0) RESPONSE FIELD 

DC ALl(O) TP-CP CODE 

DC ALHO) ERRCR STATUS 

DC AL2(0) CSW STATUS 

DC AL4(0) CURRENT ADDR LIST PTR 

DC AL4(0) CURRENT ADDR PCLL PTR 

DFTRMLST OPENLST.AOAO FOR ADDRESSING CS AG 

OS DC 

DC X»A 

DC ALl 

DFTRMLST 



0A0« TERMINAL LIST ENTRY 
(129) PROCEDURE FLAGS 
OPENLST,AOAl FOR ADDRESSING CS Al 



DC X'A0A1« TERMINAL LIST ENTRY 

DC ALl (129) PROCEDURE FLAGS 

DFTRMLST 0PENLST,A0A2 FCR ADDRESSING PRINTER 
OS OC 

DC X«A0A2' TERMINAL LIST ENTRY 

DC ALl (129) PROCEDURE FLAGS 

DFTRMLST 0PENLST,6202 FOR ADDRESSING 1050 K/B 
DS OC 

DC X»6202* T ER>! IN AL LIST ENTRY 

DC ALl (129) PROCEDURE FLAGS 

DFTRMLST WRAPLST.AOFF PCLL LIST FOR CS. GENERAL POLL 
OS OC 

DC X'AOFF* TERMINAL LIST ENTRY 

DC ALl (33) PROCEDURE FLAGS 

DC HL2«-3' 

DFTRMLST WRAPLST,620B POLL LIST FOR 1050 POLL 



COREFILE 



SAVE 

RELARfcA 

SAVERET 

RPLYECri 

ZERO 



DS 
DC 
OC 
DC 
DS 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DS 
DC 
DC 
DC 
OC 
DS 
DS 
OS 
DS 
OC 



OC 

X»620B' TERMINAL LIST ENTRY 

ALl (33) PROCEDURE FLAGS 

HL2'-3« 

OF 

F«0» 

C'GOOD MORN I NGN' 



PLEASE SELECT JOB DESIRED BYN* 
ENTERING LINE NUMBERN' 

1. DISPLAY CCREFILEN* 

2. CHANGE CGREFILEN' 

3. OCNEW 



499 eUFFL48 OC 



C» 

C 

C« 

C 

C« 

OF 

IF'O' 

C'GET InITH IT. how ABOUT 

256C« ' 

173C» • 

18F 

IF 

IF 

IF 

X'OOQGOO' 

IF»48* 



DOING SOMETHING YCURSELFW 



PAGE 



IC 



LOG OBJtCT CODfc 



ADDRl ADDR2 STMT 



SOURCE STATEMENT 



FC1JAN67 5/C1/67 



000858 
00085C 
000860 
000864 
000865 
000868 
00U86C 

000870 



00000020 

00000026 

0000002C 

40 

000000 

00000000 

00000034 



500 8UFFLTH5 DC 1F»45» 

501 BUFFLTH6 DC 1F«46« 

502 8UFFLTH4 DC 1F«44« 

503 REPLY DC IC • 

504 ZERCl DC IF'O* 

505 COREFLN DC 1F«52' 
5C6 ALERB LERB I,,,, 

507+ALERB DC OF'O* ALIGN TABLE AND ATTACH NAME 





000870 


00000000 




000874 


0000 




000876 


0000 




0UO878 


0000 




00087A 


00 




00087B 


00 




00&87C 


00 




00087D 


00 




00087 E 


FF 




00087 F 


OA 




000880 


05 


4iw 


000881 


05 


NJ 






4s». 


000882 


0000 


00 


000888 
000886 






000888 


3F40F13FF23F3FF3 




000898 


F83F3FF93FF07B3F 




0008 A8 


7C3F3F613Ft?E33F 




0008 B8 


3FE8E93FE03F3F6B 




0008C8 


603F3FD13FD2033F 




0008 Da 


3FD8D93FD03F3F5B 




OGOSEa 


3F50C13FC23F3FC3 




0008 Fa 


C6 3F3FC93FC04B3F 




000908 


3F407E3F4C3F3F5t 




000918 


5C3F3F4D3F^C7F3F 




00092a 


4A3F3F6F3Ft?E33F 




000938 


3FE8E93F3F3F3F4F 




000948 


603F3FD13F02D33F 




0U0958 


3FD8D93F3F3F3F-JA 




000968 


3F4EC13FC23F3FC3 




0U0978 


C83F3FC93F3F5F3F 




000988 






000988 


3F3F0203373F2E3F 




000998 


3F3F3F3F3F303F3F 




0009 A8 


3F3F3F3F3F3F3F3F 




0009B8 


3F3F3F3F3F3F3F3F 




OU09Ca 


406AIA/85B6C507C 




0(.09D8 


F0F1F2F3F4F5F6F7 



509+» 

51C+ 

511 + 

512+ 

513+ 

514+* 

515+ 

516+ 

517+ 

518+ 

519+* 

520+ 

521 + 

522+ 

523 + 

524+» 

525+ 

52 7 

528 

529+IECTRF5C 

530+* 

531 + 

532+ 

533+ 

534+ 

535+ 

536+ 

53^+ 

536+ 

539+ 

54C+ 

541 + 

542 + 
54 3+ 
544+ 
545+ 
546+ 

547+IhCTRSCI 
548+* 

549+ 
550+ 

551 + 

552 + 

553 + 
554+ 



ANSMISSICNS 
TA CHECKS 
TERVENTIGNS 
KTEXT TIMEOUTS 

ANSMISSIGNS 
TA CHECKS 
TERVENTIGNS 
NTEXT TIMECUTS 

) TRANSMISSIONS 

DATA CHECKS 
INTERVENTIONS 
NONTEXT TIMECUTS 



ACCUMULATORS 
DC F«0' TR 

DC H'O' DA 

DC H«0« IN 

DC H'O* NO 

COUNTERS 
DC X«0« TR 

DC X'O* DA 

DC X»0* IN 

DC X»0' NC 

THRESHOLDS 
DC YL1(255 

DC YLKIO) 

DC YL1(5) 

DC YL1(5) 

RESERVED 
DC XL2«0« 

DS OD 

ASMTRTAB RSCI ,SSCI , RF50 ,SC50 

EOU • 

0123456789ABC 

DC X'3F40F13FF23F3FF3F43F3FF53F 

DC X«F83F3FF93FF07B3F3F34353F36 

DC X«7C3F3F613FE2E33F3FE4E53FE6 

DC X'3FE8E93FE03F3F6B243F3F253F 

DC X«603F3FD13FD2D33F3FD4C53FD6 

DC X'3FD8D93FD03F3F5R143F3F153F 

DC X'3F50C13FC23F3FC3C43F3FC53F 

DC X'C83F3FC93FC04B3F3F04053F06 

DC X'3F407E3F4C3F3F5E7fl3F3F6C3F 

DC X«5C3F3F4D3F5D7F3F3F34353F36 

DC X«4A3F3F6F3FE2E33F3FE4E53FE6 

DC X«3FE8E93F3F3F3F4F243F3F253F 

DC X»603F3FD13FD2D3 3F3FD4C53FD6 

DC X«3FD8D93F3F3F3F5A143F3F153F 

DC X«3F4EC13FC23F3FC3C43F3FC53F 

DC X'C83F3FC93F3F5F3F3F04053F06 

EQU * 

012 3 4567 9/SBC 

DC X«3F3F0203373F2E3F3F3F153F3F 

DC X'3F3F3F3F3F3D3F3F183F3F3F3F 

DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F 

DC X'3F3F3F3F3F3F3F3F3F3F3F3F3F 

DC X'406A1 A7B5P6C507C4C5C5C4E6R 

DC X»F0FlF2F3F4F5F6F7FdF9745E4C 



C E F 




F6F73F* 





3F3F37 


1 


3F3FE7 


2 


26273F 


3 


3F3FD7 


• 4 


16173F 


' 5 


C6C73F 


6 


3F3F07 


' 7 


7C6E3F 


' 8 


3F3F3F 


' 9 


3F3FE7 


' A 


26273F 


' B 


3F3FC7 


' C 


16173F 


' C 


C6C73F 


■ E 


3F3F07 


' F 


C E F 




3F3F3F 


• 


3F3F3F 


• I 


3F3F3F 


• 2 


3F3F3F 


■ 3 


604861 


• 4 


7E6E6F 


1 c 



PAGE 



11 



LQC OBJECT CODt 



ADDRl AD0R2 STMT 



SOURCE STATEMENT 



FC1JAN67 



5/01/67 









0U09E8 3F3F3F3F3F3F3F3F 

0009F8 3F3F3F3F3F3F3F3F 

0G0A08 3F3F3F3F3F3F3F3F 

0UUA18 3F3F3F3F3F3F3F3F 

000A28 3FC1C2C3C4C5C6C7 

0a0A38 D70809E2E3e4E5E6 

0U0A48 3F3F3F3F3F3F3F3F 

000A58 3F3F3F3F3F3F3F3F 

000A68 7C3F3F3F3F3F3F3F 

0u0A78 3F3F3F3F3F3F3F3F 
000A88 

000A88 bE8ai6JD79/A7C/F 

C)')0A98 8886888858'>B5D5E 

000AA8 888888883833303E 

0O0AB8 888d5E8<119l<\lClF 

OuOACB 0188888888888888 

UU0AD8 6188888888888888 

000AE8 4023888888888888 

0U0AF8 8888a8888a£.a88dd 

000B08 88626467686B606E 

O0QB18 88434546494A4C4F 

000828 88882526292A2C2F 

m)0838 838688d888aa8^8<J<t 

0u0848 75b2E4E7E8eREDEfc 

000658 54C3C5C6C9CACCCF 

000B68 3438A5A6A9AAACAF 

0U0B78 15020407080L5000E 
000 888 

000B88 5A5A02035At»A5A!>A 

000B98 5A5AiA5A5A0A5A5A 

OLUBAB 5A!>A5A5A5A5A03bA 

0bOBB8 5A*5A5At>A5A*>A5A04 

OOOBCe 405A5A5A5A'>A5A5A 

000BD8 465A5A'jA5A^A5A5A 

OO0BE8 404F5A5A5A'>A5A'>A 

OOOBFb •}A'>AbA'>AbiAbASA'>A 

000C08 5AA1A2A3A4A5A6A7 

OOOCIB 5AAAABACADAEAFi'.J 

0j0C28 5A^AB3B4B5b6B7bd 

000C38 5AtiA5A5A5A5A5A5A 

00(JC4a 5AAIA2A3A4A5A6A7 

000C58 5AAAABACADAEAF81) 

0.')0C68 5A->AB3B4B5b6B7Rb 

0O0C78 5051525354555637 



555+ DC X«3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F 

556+ DC X«3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F 

557+ DC X«3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F 

558+ DC X«3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F 

559+ DC X«3FC1C2C3C4C5C6C7C8C9DID203D4D5D6 

560+ DC X«07D8D9E2E3E4E5E6E7E8E93F3F3F3F6C 

561+ DC X«3F3F3F3F3F3F3F3F3F3F3F3F3F0A3F3F 

562+ DC X«3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F 

563+ DC X»7C3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F 

564+ DC X«3F3F3F3F3F3F3F3F3F3F3F3F5F3F4F3F 

565+IECTSD5C EQU » 

566+* 0123456789ABCDEF 

567+ DC X»5E88163D797A7C7F88888888885B3B58 

568+ DC X«88888888585B505E8888888888888888 

569+ DC X«a8888888383B3D3E8888888888888888 

570+ DC X»88885£88191A1C1F8888888888888888 

571+ DC X«01888888888888888888A0768493E1B7 

572+ DC X*6i8888888888888888880757909587F6 

573+ DC X«4023888888888888888888378BC08EA3 

574+ DC X'888a8888a88888888a883816208C8296 

575+ DC X«88626467686B6D6E7073888888888888 

576+ DC X«88434546494A4C4F5152888888888888 

577+ DC X»88882526292A2C2F3132888888888888 

578+ DC X» 8*888888 888 8888 8888888888888 8888 

579+ DC X«75E2E4E7E8EBEDEEF0F3888888888888 

580+ DC X«54C3C5C6C9CACCCFD1D2888888888888 

581+ DC X»3488A5A6A9AAACAFBlB288888a888888 

582+ DC X«15020407080B0D0E1013a8888a888a88 

583+IECTSSCI EQU • 

584+» 0123456789ABCCEF 

585+ DC X«5A5A02035A5A5A5A5A5A5A5A5A0A5A5A 

586+ DC X«5A5A5A5A5AGA5A5A5A5A425A5A5A5A5A 

587+ DC X«5A5A5A5A5A5A035A5A5A5A5A5A5A065A 

588+ DC X«5A5A5A5A5A5A5A045A5A5A5A5A155A5A 

589+ OC X«405A5A5A5A5A5A5A5A5A5A4E5C484PFE 

590+ DC X«465A5A5A5A5A5A5A5A5A5A444A495BFC 

591+ DC X»4D4F5A5A5fl5A5A5A5A5A414C45BF5E5F 

592+ OC X«5A5A5A5A5A5A5A5A5A5A5A43E0475C5A 

593+ OC X«5AA1A2A3A4A5A6A7A8A95A5A5A5A5A5A 

594+ DC X«5AAAABACADAEAFB0B1B25A5A5A5A5A5A 

595+ DC X'5A5AB3B4B5B6B7B8B9BA5A5A5A5A5A5A 

596+ DC X»5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A5A 

597+ DC X'5AA1A2A3A4A5A6A7A8A95A5A5A5A5A5A 

598+ DC X«5AAAA8ACADAEAFB0B1B25A5A5A5A5A5A 

599+ DC X«5A5AB3B4B586B7B8B9BA5A5A5A5A5A5A 

600+ DC X«50515253545556575B595A5A5A5A5A5A 

601 DCBD DSORG=nx 



603+* 
604 + * 



OCB SYMBCLIC DEFINIT ICN 
BTAH LINE GRCUP 



FOR 



QjOOOO 



6 C 6+ I H ADC 3 
60 8+* 



DSECT 



8TAM LINE GRCUP INTERFACE 



PAGE 



12 



LOC OBJfcCl CODE 

000014 
000014 
000014 
000018 
OOOOIA 
OOOOIC 
000020 
000021 
000022 
000024 
OOOOIC 
OOOOIC 
000024 
0U0024 



ADDRi ADDR2 STMT 



SOURCE STATEMENT 



FCIJAN67 



5/01/67 



610+ 


ORG 


IHAOCB+20 


611+DCBBUFNO 


DS 


OALl 


612+DCBBUFCB 


DS 


A 


613+OCBBUFL 


DS 


AL2 


614+DCBDSORG 


DS 


BL2 


elb+OCBlOBAD 


DS 


A 


616+DCBBFTEK 


DS 


BLi 


617+DCBERROP 


DS 


ALKOJ 


618+ 


DS 


AL2(0) 


619+DCBEXLST 


OS 


A 


620+ 


ORG 


IHADCB+28 


621+DCBDEVTP 


DS 


BLI 


622+ 


ORG 


IHADCB+36 


623+DCBEiaRX 


DS 


BLI 



626+* 



FCUNDATICN BEFORE OPEN 



0J0028 
0U0028 
000030 
OU0031 
000032 



628+ ORG 

629+DCBDDNAy DS 
630+DCBOFLGS DS 
631+OCBIFLG DS 
632+DCBMACR DS 



IHADCB+40 

CL8 

BLI 

BLI 

BL2 



N5 



O 



000028 
0U0028 
0U002A 
00002C 
0</002C 
000030 
Ou0030 



634+* 

636+ ORG 

637+DCBTIOT DS 
638+DCBMACRF OS 
639+DC8IFLGS DS 
640+DCBDERAD DS 
641+DCBREAO DS 
642+OCBWRI TE OS 



FCUNDATICN AFTER OPEN 



IHAOCB+40 

BL2 

BL2 

OBLl 

A 

OA 

OA 



000034 
000034 
000038 

000000 



645+ ORG IHADCB+52 

646+DCBLER3 DS AtO) 

647+DCBONLTT DS 2F'0' 

648 lECTOECB 

649+IECrDECB DSEC T DECB DUNMY SECTIGN 

650+* ■ 

65l+» + + 

652+* + STANDARD EVENT CCNTRCL BLOCK + 

653+* + ♦ 

6 54+* + + 

655+* + + + 

656+* 4 + OPERATION TYPE + AREA LEmGTH + 

657+* + + + 

658+* + + 

659+* + ON-LINE + + 

66C+* b +TERMINAL + ADDRESS CF CCB + 

661+* + TEST + ♦ 

6 6?+* + + 

66 3 + * ^ '• + 

664+* 12 +RESFRVE0 -s- ACCRESS CF AREA + 

665 + * *- + 



PAGE" 13 ^ » * 



LOC OBJECT coot 



ADDRl A0DR2 STMT 



SOURCE STATEMENT 



F01JAN67 5/01/67 



4i- 



(,t6^-* + — ♦ 

66 7+» + + + 

668+» 16 + SENSE BYTES + RESIDUAL COUNT + 

669+» + 1 £ 2 ♦ ♦ 

67C+* + + 

67l+» + + 4 

672+* 2U + COMMAND ADDRESS CF TERMINAL LIST + 

673+» + CODE + ♦ 

674+» + + 

675+» + + RELATIVE* + + 

676+» 24 + STATUS + LINE + ADDRESS + VRC/LRC + 

677+» + FLAGS + NUMBER + RESPONSE* RESPONSE + 

678+* + ' + 

679+* + + + + 

680+* 28 + TP-GP + ERRCR + CSW STATUS + 

68i+* •+ CODE + STATUS + + 

682+* + + 

683+* + + + 

684+* 32 +RESERVED + ADDRESS CF CURRENT + 

685+* + + ADDRESSING ENTRY + 

686+* + + 

687+* + + + 

688+* 36 +RE SERVED + ADDRESS CF CURRENT ♦ 

689+* + . + POLLING ENTRY + 

690+. 



PAGE 14 



LOG OBJECT C00£ 

000000 

000004 

0U0006 

0J0008 
000008 

OOOOOC 

OdOOlO 

0000 I i 

000012 

0O0014 
0U0014 



ADDKl ADDR2 STMT 



SOURCE STATEMENT 



F01JAN67 



5/01/67 



692+DECSDECB DS 

694+DECTYPe DS 

696+DECLNGTH DS 

698+DECONLTT DS 

699+DECDCBAO DS 

701+DECAREA DS 

703+DECSENSC DS 

705+DECSENSl OS 

707+DECCOLiNT DS 

709+DECCMCOD DS 

71C+DECENTRY DS 



IF STATUS FLAG + ADDRESS OF THE TCB 

IH OPERATION TYPE 

IH AREA LENGTH 

OCLl RESERVED FOR ON-LINE TERMINAL TEST 
IF ADDRESS OF DCS 

IF ADDRESS OF AREA 

IC 1ST SENSE BYTE 

IC 2ND SENSE BYTE 

IH RESIDUAL COUNT 

OCLl COMMAND CODE 

IF ADDRESS OF TERMINAL LIST 



45^ 



000018 
000019 
00001 A 

ooooie 

OaOOlD 
0000 IE 
000020 
000024 



•*• ERROR •»« 



713+OECFLAGS OS 

715+DECRLN DS 

717+DECRESPN DS 

719+DECTPCOD OS 

721+OECERHST OS 

723+DECCSWST DS 

725+DECADRPT US 

727+DECPOLPT DS 

72 9 END 
73C+**» 



IC STATUS FLAGS 

IC RELATIVE LINE NUMBER 

IH RESPONSE FIELDS 

IC TP-OP CODE 

IC ERROR STATUS 

IH CSU STATUS 

IF ADDRESS OF CURRENT ADDRESSING ENTRY 

IF ADDRESS OF CURRENT POLLING ENTRY 



R 20 -4 105-0 



JIJtI 
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Data Processing Division 
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